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Guida all’input dei programmi sullo ZX Spectrum 


.* t >cro’e" comprese fra pcreniev gretfe •nrf'car'.o. coratten grafici !>■’<. 
definiti (G, •< testo (rumerò seguente >c G). ìa necessità di premere il tasto 
insieme a CAPS SH.'f ; ('eventoste S fi'occk-rlc to G) e numero d; npe?f 
/.•cm de! tasto richieste (eventuale nomerò ali’w.o deito {-.orcio") ! co 
tulle*: grafie* defin ì: da' {l'ogr jnvr-j sane invece md'con do lettere mani 
sccic {ccrasvor.(fenu c r aste do usare) syioòneate 


[ Quando leggete |[ Premete 

{Gl} 


EJB 

{G2} 


ra 

{G3 } 


EH - 

{G4 } 


HJB . 

(G5) 


EJE 1 

(G6) 


EH! V 

{G7 } 


m i 

(G8) 


EEB □ 

(SG1) 


zn ezk h 

{SG2} 

S« *>«r hi» 
sii r* ne do 

C. CMrMtc 

i & i fu a 

{ SG3 } 

KhKOi-eo 
to'! trrpt't 

1 iK 1 E H m 

(SG4) 

'Hininl» 

CAPS SHIFT 

m Q 

1 :.r. I E* r 

(SG5 ) 

V w 

LiSJ EIE 1 

(SG6! 


nsi EHI S 

(SG7| 


laim . 

(SG8 } 


LEI !_■ ■ 


5« dj«*te 
J«i’l 4M 
modi C. 

KMKdlK * 


| Quando leggete" 


Premete 


Vedrete 


A 


□ 

n 

EIE 

c 

e: 

□ 

D 

e: 

□ 

K 

e: 

□ 

F 

EI 

□ 

G 

e: 

□ 

H 

fi 

□ 

1^ 


r—i 


J 

Se f'i** fticlc 

I l l<* «T'Odo 

0. «TtllMHl 

i ì 

K 

K>l «Ci*»>dO 
«OnUTipO'l- 

e i 

L 

CAPS SHIFT 

m O 

F i 

M 


EZ] 


N 

e: 

□ 

O 

e: 

□ 

P 

e: 

□ 

0 

e: 

□ 

R 

EI 

□ 

S 

d 

□ 

T 

Ed 

Ù 

rr- 

n 


Simbolo grafico 
definito nel 
programma in uso. 


St do»«l» 
kUiU à» 
T>od« C. 
KMM(U(« 9 


Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono “parole " rac¬ 
chiuse tra parentesi graffe | }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volle che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
queste dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose c e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


Quando leggete: Premete: Vedrete: Quando leggete: Premete: Vedrete: 


}CLR } 
{HOME} 
{SU) " 
{G I U ' } 
{SIN} 
{DES} 

{ RVS } 
{OFF} 

{ BLK } 

{ WIIT } 
{RED} 


SHIFT iCLB/HOME 


CIR/HOME 


iiim.ui 

LE® 


SMIFT |e=CRSR=3 


C=CR$R=3 


m q 
EEJ □ 


G 

{ CYN} 

0 

{ PUR) 

n 

{GRN} 

E 

{BLU} 

II 

t YEL } 

u 

[< 1>1 

H 

l < 2 > 1 

■ 

[<3>1 

■ 

l< 4 >] 

[1 

{<5>! 

0 

(<6>) 




CIRI 

CIRI 


□ O 

□ a 

ho 

□ a 

□ a 

□ D 




Quando leggete: 

(<7>1 

[< 8 >] 

{FI} 

{ F2 ) 

{F3} 

{ F 4 } 

{ F5 } 

{ r6 } 

{ F 7 } 

{ F 8 > 


Premete: 

Vedrete: 

□ a 

□ 

□ □ 

■ ■ 
■ ■ 


■i 

m 

51 

Uhi 

■ 

K23 

Ifi 

rii 

II 

m 

SI 

DB 

II 

KZD 

■ 


1 
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Extenderd Basic 
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Spectrum 


sinczlaii— 

Spectrum 



Joyst ck (opzionale) 



Joyst t k 
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9 

11 

14 

19 

19 

11 

14 
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Computer space 


Suona l'allarme ed Inizia la battaglia. Men¬ 
tre vi sistemate al posto di comando vedete 
ia nave nemica volgere le sue sinistre torrette 
iaser nella vostra direzione. Voi dovrete im¬ 
mediatamente fuggire a tutto gas, lontano 
dai raggi della morte che si avvicinano sem¬ 
pre più... In qualità di comandante della na¬ 
ve di difesa interstellare " Belcrcst" il vostro 
compito è di difendere il sistema contro le 
navi pirata del settore vicino. ATI ENZIONL! 
L esistenza dei pirati è legata alla ioro abilità 
nel vincere le battaglie spaziali, di con se 
guenza sono diventati bravissimi avversari e 
solo un ottimo pilota può ausare a sconfigge¬ 


re un nemico cosi in gamba. Voi sarete in 
grado di prendere il comando della “Bel 
crest'' e condurla alla vittoria contro il nemi¬ 
co??? Non vi rimane che provare con il Com¬ 
puter Space! 

Per controllare la vostra nave usate i seguen¬ 
ti tasti: 

Ruotare lo nave a sinistra I 

Ruotare la nave a destra 2 

Dare gas 3 

Missih barra spaziati ice 
Il tasto Rept si può usare contemporanea¬ 
mente ad uno qualsiasi dei suddetti tasti, 
(per i vecchi Apple). 


10 GOSUB 1000: IF PEEK (802) < 
> 8 OR PEEK (804) < > 16 OR 

PEEK (872) < > 55 THEN GOSUB 

1500: POKE 232,32: POKE 233,3 
20 PRINT : PRINT " <RETURN> - 
-> CONTINUA. GET A$: I = FRE 

(0): GOSUB 1300 


100 

C = 

C + 

1: IF C 

> 

= L 

THEN 

160 







110 

ROT= Z: 

SCALE= 

U: I 

= AX:J = 

AY 

: AX 

= I + 

SX: IF 

AX 

> = 

X TH 

EN 

AX = 

AX - 

X 




120 

IF 

AX < 

Z THEN 

AX 

= AX 

+ X 

130 

AY 

= J + 

SY: IF 

AY 

> Y 

THEN 

AY 

= AY 

- Y 





140 

IF 

AY < 

Z THEN 

AY 

= AY 

+ Y 

150 

XDRAW T 

AT AX ,AY: 

XDRAW T A 

T I 







160 

IF 

C = 

L THEN DX = 

XP 

- AX 

- V 

- V 

: DY = 

YP - AY 

f 

V : SX 

= W 

* ( 

INT 

( RND (U) * 

W) 

- U) 

: SY = 

W 

* ( 

INT ( 

RND (U) 

★ 

W) - 

U) : A 

M = 

Z : 

HCOLOR= Z: HPLOT 

MX, 

MY: I 

F 

ABS 

(XS) 

> Y / V 

OR 

ABS 

(YS) 


> Y / V THEN XS = Z:YS = Z:C = 

Z 

180 IF C < = L THEN 300 

190 C = Z: IF RND (U) * V > U A 

ND DX + DY > 50 THEN 300 

200 IF ALIEN > SHIP AND RND (U 

) * W > U THEN 300 

210 AM = U:DX = DX + (XP - AX - 


V - V - DX) * V:DY = DY + (YP - 


AY - V - 

DY) 

* V: 

IF DX > X / T 

THEN DX 

= DX 

- X 


220 IF 

DX < 

- X 

/ T THEN DX = 

DX + X 
230 IF 

DY > 

Y / 1 

T THEN DY = DY 

- Y 

240 IF 

DY < 

- Y 

/ T THEN DY = 

DY + Y 
250 I = 

ABS 

(DX) 

+ ABS (DY) : IX 

= (V + 

W) * 

DX / 

I :IY = (V + W) 

* DY / 

I :MX 

= AX 

+ V + V + IX:M 

Y = AY + 

V + 

IY 



300 TIME = TIME - U:I = TIME / V 
: IF I = INT (I) THEN HTAB 17: 
PRINT I;" IF NOT I THEN 80 

0 

305 K = PEEK ( - 16384): POKE 
- 16368,Z: IF I < 0 THEN 820 
307 IF K = ST THEN 975 
310 ROT= R: IF K = RL THEN R = 

R - T: IF R < Z THEN R = 62 

320 IF K = RR THEN R = R + T: I 

F R > 63 THEN R = Z 

330 IF K = TH THEN XS = XS + C 

OS (R * H) :YS = YS + SIN (R * H 

) 

340 I = XP:J = YP:XP = I + XS: I 
F XP > = X THEN XP = XP - X 

350 IF XP < Z THEN XP = XP + X 

360 YP = J + YS: IF YP > Y THEN 

YP = YP - Y 


A 









370 IF YP < Z THEN YP = YP + Y 
380 SCALE= V - U: XDRAW U AT I, 
J: RPT= R: XDRAW U AT XP,YP 
400 IF NOT AM THEN 500 
410 IF C THEN HCOLOR= Z: HPLOT 


MX, 

MY 





420 

MX = 

MX + IX:MY 

= MY 

+ IY: 

I 

F MX 

: > 

= X THEN MX 

= MX 

- X 


430 

IF 

MX < Z THEN 

MX = 

MX + 

X 

440 

IF 

MY > Y THEN 

MY = 

MY - 

Y 

450 

IF 

MY < Z THEN 

MY = 

MY + 

Y 

460 

I = 

MX:J = MY: HCOLOR= W: 

HP 

LOT 

I,J 





470 

IF 

MX > XP - V 

- w ; 

AND MX 

: < 

XP 

+ V 

+ W AND MY > 

YP 

- V - 

w 

AND 

MY < 

YP + V + W 

THEN 

GOSUB 


900 : ALIEN = ALIEN + U: HTAB 32: 
PRINT ALIEN;: AM = Z:XS = Z:YS = 
Z: SCALE= V - U: ROT= R: XDRAW 0 
AT XP,YP:R = R + 40: ROT= R: XD 


RAW 

U AT 

1 XP,YP: IF R > 63 THEN R 

= R 

. - 64 



500 

IF 

K = FI AND NOT 

SM 

THEN 

XI = 

V * 

COS (H * R):YI 

= 

V * 

SIN 

(H * 

R) : SM = U:XM = 

XP 

+ XI 

+ XI 

: YM 

= YP + YI + YI: 

GOTO 570 

540 

IF 

NOT SM THEN 100 



550 

SM = 

SM + U: HCOLOR= 

Z: 

HPLO 

T XM 

, YM : 

IF SM > L THEN 

SM 

= Z: 

GOTO 

100 




560 

I = 

XM:J = YM:XM = XM + 

XI : Y 

M = 

YM + 

YI: IF XM > AX 

AND 

XM < 

AX 

+ L 

+ V AND YM > AY 

AND 

YM < 

AY 

+ V 

+ V THEN GOSUB 

900 

: SHIP 

= SHIP 

+ 1: HTAB 2: PRINT 

SHIP; 

: SM 

= Z: 

GOTO 100 



570 

M = 

XM + XI: IF XM > 

= 

X TH 

EN XM = 

XM - X 



580 

IF 

XM < Z THEN XM = 

XM 

+ X 

590 

YM = 

YI + YM: IF YM 

> Y 

THEN 

YM 

= YM 

- Y 



600 

IF 

YM < Z THEN YM = 

YM 

+ Y 

610 

HCOLOR= W: HPLOT XM 

,ym 

: IF 

XM > 

AX 

AND XM < AX + L 

+ V 

AND 

YM > 

AY 

AND YM < AY + V 

+ V 

THEN 


I = XM:J = YM: GOSUB 900:SHIP = 
SHIP + 1: HTAB 2: PRINT SHIP:SM 
= Z 

620 GOTO 100 

800 HTAB 14: INVERSE : PRINT "F 
INITOI ! !": NORMAL : PRINT "'ESC' 
--> CONTINUA 0 '0’ --> FINE."; 

810 ROT= R: SCALE= V - U: XDRAW 
U AT XP,YP 

820 IF K = ST THEN 975 
830 TIME = - U: IF K = 155 THEN 

TIME = 751: VTAB 23: HTAB 1: FO 


R I = 1 TO 79: PRINT " ";: NEXT 
: VTAB 23:SHIP = Z: ALIEN = Z: SC 
ALE= V - U: ROT= R:AM = Z:SM = Z 
: XDRAW U AT XP,YP 


850 

IF C = L THEN C = 

Z 

860 

GOTO 100 


900 

ROT= 4: FOR K = 2 

TO 5 

905 

SCALE= K 


910 

XDRAW W AT I,J 


920 

NEXT 


925 

FOR K = 30 TO 150 

STEP 5 

930 

POKE 768,K: POKE 

769,V: CAL 

L 770 


935 

NEXT 


940 

FOR K = 2 TO 5 


945 

SCALE= K 


950 

XDRAW W AT I/J 


955 

NEXT 


960 

RETURN 


975 

TEXT : HOME : POKE - 16298 

,0 



985 

END 


1000 

Z = 0 : U = 1 : T = 2 

: W = 3 : V = 

5 : L 

= 15 


1010 

X = 280 :Y = 155 : K 

= Z:I = Z 

: J = 

Z 


1020 

H = 3.14159 / 32 


1030 

XP = 100 : YP = 80:, 

AX = 200 : A 

Y = 

50 


1040 

SM = Z:AM = Z : C = 

z 

1050 

RL = 177 :RR = 178 

:TH = 179: 

ST = 

176 : FI = 160 


1060 

TIME = 751 


1100 

TEXT : HOME : VTAB 3: HTAB 

7 

1110 

PRINT "C O M P U 

TER S 

P A i 

2 E" 


1120 

HTAB 7: PRINT 

II 


1130 

PRINT "QUESTA E' 

LA VERSIO 


NE APPLE DI UN " 

1132 PRINT "GIOCO MOLTO NOTO NE 
LLE SALE GIOCHI." 

1140 PRINT : PRINT "POTETE CONT 
ROLLARE LA NAVETTA CON LA " 

1142 PRINT "TASTIERA. I TASTI # 
1 E #2 RUOTANO LA " 

1143 PRINT "NAVE A SINISTRA E A 
DESTRA. IL TASTO #3" 

1145 PRINT "AUMENTA LA FORZA DE 
I RETRORAZZI" 

1160 PRINT "LA BARRA SPAZIATRIC 
E LANCIA I VOSTRI" 

1162 PRINT "MISSILI." 

1200 RETURN 

1300 HGR : HCOLOR= W 

1310 FOR I = 5 TO 279 STEP 5 

1320 HPLOT I, RND (U) * Y 

1330 NEXT 


5 





1340 ROT= Z: SCALE= U: XDRAW T 
AT AX,AY 

1350 SCALE= V - U: XDRAW U AT X 
P, YP 

1360 C = 14 

1370 VTAB 21: HTAB 1 

1380 PRINT "TERRA";: PRINT TAB 

( 30)"ALIENI" 

1390 PRINT TAB( 15)"TEMPO" 

1400 RETURN 

1500 C = 770: READ A$: GOSUB 160 
0 

1530 C = 800: FOR K = 1 TO 3 
1540 READ A$: GOSUB 1600: NEXT 

1550 C = Z:R = Z: RETURN 

1600 FOR I = 1 TO LEN (A$) STE 

P 2 


1610 R = ASC ( MID$ (A$,I,1)) - 
48 

1620 IF R > 9 THEN R = R - 7 
1630 J = ASC ( MID$ (A$,I + 1,1 
)) - 48 

1640 IF J > 9 THEN J = J - 7 
1650 POKE C,R * 16 + J 
1660 C = C + 1: NEXT : RETURN 
2000 DATA "AD30C088D005CE0103F 
009CAD0F5AE00034C020360" 

2010 DATA "0300080010002F003C3 
C363625252D0092323625242C2D2C" 
2020 DATA "0C652D7575352D35353 
735373F37BFBF3FE7E7273F3F00" 

2030 DATA "123E3C272D24373F2C2 
C25272D2E2E2C3627372E2E343E3E243 
700" 


anppkz 


Data base 


Il data base è un archvio eleWonico dove 
possono venire immagazzinate le informa¬ 
zioni necessarie per una determinata appli¬ 
cazione. Il trattamento delie informazioni è 
forse uno dei principali compì di applicazione 
dei computer. Esistono sul mercato numerosi 
prodotti commerciali pe r quasi tutti i compu¬ 
ter esistenti, ma è spesso difficile capire se 
un programma soddisfa le specifiche esigen¬ 
ze dell'utente. Questi prodotti costano abi¬ 
tualmente più di 100.000 lire e spesso una 
tale cifra non è giustificata da una piccola o 
media applicazione. Per questa fascia di 
utenti viene presentato questa settimana un 
semplice ma potente "data base" che è m 
grado di memorizzare, ordinare e trovare in 
poco tempo le in formazioni che servono. 

Il programma incomincia chiedendo se si 
vuole miziahzzare un nuovo data base o se si 


100 D$ = CHR$ (4) 

110 HOME : PRINT "(I) INIZIALIZ 
Z AZIONE ARCHIVIO” 


vuole portare in memoria un data base pre¬ 
cedentemente creato. Nel prime caso viene 
chiesto il nome del data base ed il numero e 
il nome dei campi che costituiscono i vari re¬ 
cord. cioè i singoli componenti de 1 data base. 
A questo punto si possono inserire i vari eie 
meriti (record) nel data base usando la fun 
zione opportuna. Dopo aver aggiunto i vari 
record e prima di abbandonare il program¬ 
ma ricordarsi di memorizzare, per mezzo 
delie apposita funzione, il data base su di 

SCO. 

Nel secondo caso si deve dare il nome di un 
data base precedentemente mizia/izzato e si 
possono usare le altre funzioni di cambia¬ 
mento di un record, ordinamento del data 
base secondo un ordine ascendente o discen 
tonte su di un campo del record, stampa su 
video o stampante dei vari record e così via. 


120 PRINT "(C) CARICAMENTO DI U 
N ARCHIVIO ?" ; 

130 GET A$: PRINT A$ 
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140 

IF A$ 

= "C 

" THEN 

GOSUB 100 

0: 

GOTO 200 




150 

IF A$ 

= "I 

" THEN 

GOSUB 150 

0: 

GOTO 200 




160 

GOTO 130 



200 

HOME : 

PRINT "(M) 

MEMORIZZA 

DATI CORRENTI" 



220 

PRINT 

” (S) 

STAMPA 

DATI" 

230 

PRINT 

" (A) 

AGGIUNGI DATI" 

240 

PRINT 

" (V) 

VARIAZIONE DI UN 

RECORD" 




250 

PRINT 

" (C) 

CANCELLA UN RECO 

RD" 





260 

PRINT 

" (O) 

ORDINAMENTO" 

290 

PRINT 

" (F) 

FINE 

?» • 

• 9 


300 

GET A$: 

PRINT A$: 

■ PRINT 


320 

IF 

A$ = 

"M" 

THEN 

GOSUB 

200 

0: 

GOTO 

200 





330 

IF 

A$ = 

"S" 

THEN 

GOSUB 

300 

0: 

GOTO 

200 





340 

IF 

A$ = 

.. A" 

THEN 

GOSUB 

400 

0: 

GOTO 

200 





350 

IF 

A$ = 

"V" 

THEN 

GOSUB 

500 

0: 

GOTO 

200 





360 

IF 

A$ = 

l'C" 

THEN 

GOSUB 

600 

0: 

GOTO 

200 





370 

IF 

A$ = 

t.Q» 

THEN 

GOSUB 

700 


0: GOTO 200 

400 IF A$ = "F" THEN 500 

410 GOTO 200 

500 IF SS = 1 THEN 540 

510 PRINT "DATI CORRENTI NON SA 

LVATI.": PRINT "CANCELLO ORDINE 

(S/N) "GET A$ 

520 IF A$ = "S" THEN 200 
530 IF A$ < > "N" THEN 510 

540 END 

1000 INPUT "NOME FILE? ";F$ 

1020 PRINT D$;"OPEN";F$ 

1030 PRINT D$;"READ";F$ 

1040 INPUT NH: INPUT NI 

1110 MX = 100 

1130 DIM H$(NH),1$(MX,NH) 

1140 FOR I = 0 TO NH: INPUT H$( 
I): NEXT 

1200 IF NI = - 1 THEN 1280 

1240 FOR I = 0 TO NI 
1250 FOR J = 0 TO NH 
1260 INPUT I$(I,J) 

1270 NEXT J: NEXT I 
1280 PRINT D$;"CLOSE";F$ 

1300 SS = 1: RETURN 
1500 INPUT "DAI IL NOME : ";F$ 
1510 IF F$ = "" THEN 1500 
1520 INPUT "QUANTI CAMPI ? 

" ; NH 

1530 IF NH < 1 THEN 1520 
1540 NH = NH - 1:NI = - 1 

1550 MX = 100 


1560 DIM H$(NH),1$(MX,NH) 


1570 

FOR I 

= 0 TO NH 


1580 

PRINT 

"CAMPO NR."; I + 1; 

• 

• 

INPUT 

i ii . ii . 

H$ ( I ) 


1590 

NEXT I 



1600 

SS = 0: 

RETURN 


2000 

PRINT 

"USO ";F$;" (S/N)? 

ti t 
9 

: GET 

1 A$: PRINT A$ 


2050 

IF A$ 

= "S" THEN 2100 


2060 

IF A$ 

< > "N" THEN 2000 


2070 

INPUT 

"NOME? ";F$ 


2080 

IF F$ 

= "" THEN 2070 


2100 

PRINT 

D$;"OPEN";F$ 


2110 

PRINT 

D$;"WRITE";F$ 


2120 

PRINT 

NH: PRINT NI 


2130 

FOR I 

= 0 TO NH 


2140 

PRINT 

H$ (I) 


2150 

NEXT 



2220 

IF NI 

= - 1 THEN 2270 


2230 

FOR I 

= 0 TO NI 


2240 

FOR J 

= 0 TO NH 


2250 

PRINT 

1$ (I,J) 


2260 

NEXT J 

: NEXT I 


2270 

PRINT 

D$;"CLOSE";F$ 


2280 

SS = 1: 

RETURN 


3000 

IF NI 

= - 1 THEN GOSUB 

9 

000: 

RETURN 



3010 

PRINT 

"(V) VIDEO O (S) 

S 

TAMPA 

" ; : GET 

A$: PRINT 


3020 

IF A$ 

= "S" THEN 3400 


3030 

IF A$ 

< > "V" THEN 3000 


3040 

PRINT 



3050 

PRINT 

"PREMI <ESC> PER RIC 

OMINCIARE," 



3060 

PRINT 

"OGNI ALTRO TASTO 1 

PE 

R CONTINUARE 

l« 

• 


3100 

FOR I 

= 0 TO NI 


3110 

PRINT 



3115 

PRINT 

"RECORD ";I + 1: PRI 


NT 
3120 
3130 
3140 
3150 
THEN 
3160 
3170 
GET 


FOR J 
PRINT 
NEXT J 
GET A$: 

RETURN 
NEXT I 
PRINT : 
A$ 


= 0 TO NH 
H$(J),1$(I,J) 

: IF A$ = CHR$ (27) 


PRINT "E' TUTTO. 


Il 


3180 RETURN 

3390 REM PRINTER SLOT #1 
3400 PRINT D$;"PR#1" 

3420 FOR I = 0 TO NI 
3430 PRINT 

3435 PRINT "RECORD ";I + 1: PRI 
NT 

3440 FOR J = 0 TO NH 
3450 PRINT H$(J),1$(I,J) 

3460 NEXT J 
3470 NEXT I 
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3480 

PRINT D$;"PR#0" 


3490 

RETURN 


4000 

SS = 0 : NI = NI + 1 


4005 

PRINT : PRINT "RECORD 

" ; NI 

+ 1: 

PRINT 


4010 

FOR J = 0 TO NH 


4020 

PRINT H$(J) ; : INPUT " 

• h • 

• 9 

1$ (NI 

,J) 


4030 

NEXT J 


4040 

RETURN 


5000 

IF NI = - 1 THEN GOSUB 9 

000: 

RETURN 


5005 

INPUT "WHICH RECORD : 

" ; i 

5010 

1=1-1: IF I < 0 OR 

i > 

NI THEN 5005 


5020 

PRINT : PRINT "(C) CAMBIO, 

OR (T) TENGO" 


5030 

PRINT : PRINT "RECORD 

" ; i 

+ 1 



5040 

CS = 1: FOR J = 0 TO NH 

5050 

PRINT : PRINT H$(J);" 

• «t . 

• 9 

I$(I, 

J);" 


5060 

GET A$: IF A$ < > "C" 

AND 

A$ < 

> "T" THEN 5060 


5070 

PRINT A$: IF A$ = "T" 

THEN 

5090 



5080 

PRINT H$(J); : INPUT " 

• »• • 

• 9 

1$ (I, 

J) 


5085 

CS = 0 


5090 

NEXT J 


5100 

IF CS = 0 THEN SS = 0 


5110 

RETURN 


6000 

IF NI = - 1 THEN GOSUB 9 

000: 

RETURN 


6005 

INPUT "QUALE RECORD : 

";i 

6010 

1 = 1-1: IF I < 0 OR 

i > 

NI THEN 6005 


6020 

PRINT : PRINT "RECORD 

" ; i 

+ 1: 

PRINT 


6030 

FOR J = 0 TO NH 


6040 

PRINT H$(J) ;" : ";1$ (I 

,J) 

6050 

NEXT J 


6060 

PRINT : PRINT "CANCELLO QU 

ESTO 

RECORD?" 


6070 

GET A$: IF A$ < > "S" 

AND 

A$ < 

> "N" THEN 6070 


6080 

PRINT A$ : IF A$ = "N" 

THEN 


6150 



6100 FOR II = I + 1 TO NI 
6110 FOR J = 0 TO NH 
6120 I$(I1 - 1,J) = I$(I1,J) 

6130 NEXT J: NEXT II 
6140 NI = NI - 1: SS = 0 
6150 RETURN 

6999 REM SORT SUBROUTINE VERS. 
1 

7000 IF NI = - 1 THEN GOSUB 9 

000: RETURN 

7010 PRINT : FOR J = 0 TO NH 
7020 PRINT " (";J + 1;") ";H$(J) 

7030 NEXT J 

7040 INPUT "ORDINO SU QUALE CAM 
PO?";Jl 

7045 Jl = Jl - 1 
7050 IF Jl < 0 OR Jl > NH THEN 
RETURN 


7060 

PRINT "(A) ASCENDENTE, 

OR 

(D) DISCENDENTE": GET A$ 


7070 

IF A$ = "A" THEN A = 1: 

GO 

TO 7100 


7080 

IF A$ = "D" THEN A = 2: 

GO 

TO 7100 


7090 

GOTO 7060 


7100 

FOR I = 0 TO NI - 1 


7110 

T .= I 


7120 

FOR II = T + 1 TO NI 


7122 

PRINT I;" "; 11 


7125 

ON A GOTO 7130,7140 


7130 

IF I$(Il,Jl) < 1$(T,Jl) 

TH 

EN T 

= Il 


7135 

GOTO 7145 


7140 

IF I$(Il f Jl) > I$(T,Jl) 

TH 

EN T 

= Il 


7145 

NEXT II 


7150 

IF T = I THEN 7180 


7155 

FOR J = 0 TO NH 


7160 

T$ = 1$(T,J) : 1$(T,J) = I$(I 

,J) :: 

[$(I,J) = T$ 


7170 

NEXT J 


7180 

NEXT I 


7200 

SS = 0: RETURN 


9000 

PRINT "NON CI SONO DATI 

IN 


MEMORIA." 

9010 FOR I = 1 TO 1000: NEXT : 
RETURN 


ERRATA CORRIGE 

Vanno apportate le seguenti modifiche al 
programma "La disfida di Camelot” per 
TI-99/4A apparso su Paper soft n° I : 

1560 DATA 9,4,7,7,7,9,5,12,5,15, 
4,17,5,19,5,22,7,25,7,27,9,30,17 
,15,16,17,17,19 

2020 DATA 10,23,12,21,14,19,16,1 
I 7 


8 


I 











_ ^ 

Le torri di Hanoi 


£ chi non ci ha mai avuto a che fare? 
in questo rompicapo di origine antichissima, 
ci sono tre perni, uno adiacente all'altro; infi¬ 
lati in quello centrale vi sono sette anelli posti 
in ordine piramidale: il più stretto in cima, il 
più largo in basso. Lo scopo del gioco è porre 
gl anelli, nello stesso ordine in cui li trovate 
all'inizio, su uno dei perni laterali... 

Una cosa semplicissima, direte voi: beh. pro¬ 
vateci!! 

Tenete conto che non potete spostare più di 
un anello allo volta, e che non potete mette¬ 
re un anello sopra un'altro più stretto del pri¬ 
mo. Questa versione per il vostro TI-99. in 


linguaggio Basic, utilizza, tramite subrouti- 
nes realizzate appositamente, alcune opzio¬ 
ni che altrimenti sarebbero possibili solo uti¬ 
lizzando il modulo Extendend Basic. Il pro¬ 
gramma, peraltro molto semplice, conta le 
mosse che voi fate nel tentativo di realizzare 
lo scopo del gioco e visualizza i tre perni con i 
famosi sette anelli; vi rimprovererà, perfno. 
quando cercate di barare con le mosse... 
Pertanto, non vi scoraggiale se le prime volta 
impiegherete più di un centinaio di movimen 
li: io ne ho fatti 168!.... 

Buona fortuna, comunque... 


100 rem **************** 

110 REM * LE TORRI * 

120 REM * DI HANOI * 

130 REM **************** 

140 REM 

150 REM TI 99/4A BASIC 

160 DIM ARRAY(3,8) 

170 DIM RINGS(3) 

180 DIM RINGPAT$(7) 

190 REM INTRODUZIONE 
200 CALL CLEAR 
210 CALL SCREEN(9) 

220 GOSUB 1830 
230 MESSAGE$ =Ml$ 

240 ROW=5 
250 COLUMN=9 
260 GOSUB 1750 
270 MESSAGE$=M2$ 

280 ROW=18 
290 COLUMN= 5 
300 GOSUB 1750 
310 MESSAGE$=M3$ 

320 ROW=20 

330 COLUMN=9 

340 GOSUB 1750 

350 CALL SOUND(200,1000,4) 

360 CALL KEY(3,KEY,STATUS) 

370 IF STATUS=0 THEN 360 
380 IF KEY=83 THEN 1110 
390 IF KEY078 THEN 310 
400 REM 


410 REM INIZIO GIOCO 
420 REM 

430 IF MOVES>HIGHSCORE THEN 450 
440 HIGHSCORE=MOVES 
450 GOSUB 2160 

460 IF HIGHSCOREOO THEN 480 
470 HIGHSC0RE=99999 
480 MÒtfES=0 
490 REM 

500 REM MOVIMENTO ANELLI 

510 REM 

520 ROW=l 

530 COLUMN=28 

540 MESSAGE$=STR$(MOVES) 

550 GOSUB 1750 
560 ROW=23 
570 COLUMN=l 
580 MESSAGE$=M6$ 

590 GOSUB 1750 

600 CALL SOUND(250,1000,4) 

610 CALL KEY(3,KEY,STATUS) 

620 IF STATUS = 0 THEN 610 
630 IF KEY<49 THEN 1600 
640 IF KEY>51 THEN 1600 

650 CALL HCHAR(23,13,KEY) 

660 MUOVIDA=VAL(CHR$(KEY)) 

670 COLUMN=16 
680 MESSAGE$=M7$ 

690 GOSUB 1750 

700 CALL SOUND(250,1000,4) 

710 CALL KEY(3,KEY,STATUS) 
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720 IF STATUS=0 THEN 710 
730 IF KEY<49 THEN 1600 
740 IF KEY>51 THEN 1600 
750 CALL HCHAR(23,26,KEY) 

760 VERSO=VAL(CHR$(KEY) ) 

770 IF MUOVIDA=VERSO THEN 1600 
780 GOSUB 1250 
790 MOVES=MOVES+l 
800 CALL HCHAR(23,1,32,30) 

810 IF RINGS(1)=7 THEN 840 
820 IF RINGS(3)=7 THEN 840 
830 GOTO 490 
840 REM 

850 REM GIOCO COMPLETATO 
860 REM 

870 FOR X=1 TO 20 

880 CALL HCHAR(23,1,42,31) 

890 CALL SOUND(150,X*400,21-X) 
900 CALL HCHAR(23,1,32,31) 

910 NEXT X 
920 ROW=23 
930 COLUMN=2 
940 MESSAGE$ =M8$ 

950 GOSUB 1750 

960 FOR DELAY=1 TO 1500 

970 NEXT DELAY 

980 ROW=24 

990 MESSAGE$=M9$ 

1000 GOSUB 1750 

1010 CALL SOUND(300,1000,4) 

1020 CALL KEY(3,KEY,STATUS) 

1030 IF STATUS=0 THEN 1020 

1040 IF KEY=83 THEN 1090 

1050 IF KEY078 THEN 1010 

1060 CALL CLEAR 

1070 PRINT "PARTITA CONCLUSA" 

1080 STOP 

1090 GOSUB 1830 

1100 GOTO 400 

1110 REM 

1120 REM INSTRUCTIONS 
1130 CALL CLEAR 
1140 CALL SCREEN(14) 

1150 PRINT "Il gioco delle Torri 
di "HANOI e'uno dei piu'antic 
hi":"giochi di pazienza.E'qui " 
1160 PRINT "riproposto in versio 
ne per":"TI-99/4A.": :"Scopo del 

gioco e'spostare":"gli anelli da 
1 bastone cen-": 

1170 PRINT "trale ad uno dei 2 1 
aterali,":"in modo che l'ordine 
pirami-":"dale iniziale(il piu'p 
iccolo": 

1180 PRINT "in alto, il piu’gran 
de sul":"fondo)rimanga immutato. 
"Logicamente non si può' 


sovrapporre un anello grande" 
1190 PRINT "ad un anello piccolo 
; ":"e nemmeno muovere piu'di un 
":"anello per volta."::: 

1200 PRINT "(PREMI UN TASTO)" 
1210 CALL SCREEN(5) 

1220 CALL KEY(3,KEY,STATUS) 

1230 IF STATUS = 0 THEN 1220 
1240 GOTO 400 
1250 REM 

1260 REM CONTROLLO MOSSE 
1270 REM 

1280 SUBl=8-RINGS(MUOVIDA) 

1290 SUB2=8-RINGS(VERSO) 

1300 IF ARRAY(MUOVIDA,SUBÌ)>ARRA 
Y(VERSO,SUB2)THEN 1600 
1310 IF RINGS(MUOVIDA)=0 THEN 16 
00 

1320 GOSUB 1380 

1330 RINGS(MUOVIDA)=RINGS(MUOVID 
A)-l 

1340 RINGS(VERSO)=RINGS(VERSO)+1 
1350 ARRAY(VERSO,SUB2-1)=ARRAY(M 
UOVIDA,SUBÌ) 

1360 ARRAY(MUOVIDA,SUBÌ)=0 
1370 RETURN 
1380 REM 

1390 REM MOVIMENTO ANELLI 
1400 REM 

1410 ROW=7+(2*(7-RINGS(MUOVIDA)) 

) 

1420 COLUMN=19 

1430 IF MUOVIDAO1 THEN 1450 
1440 COLUMN= 3 

1450 IF MUOVIDAO 2 THEN 1470 
1460 COLUMN=11 
1470 MESSAGE$ =BAND$ 

1480 GOSUB 1750 

1490 ROW=19-(2*(RINGS(VERSO))) 
1500 COLUMN = 22 
1510 IF VERSOOl THEN 1530 
1520 COLUMN= 6 

1530 IF VERS0O2 THEN 1550 

1540 COLUMN=14 

1550 XX=ARRAY(MUOVIDA,SUBÌ) 

1560 COLUMN=COLUMN-(INT(LEN(RING 

PAT$(XX)))/2) 

1570 MESSAGE$=RINGPAT$(XX) 

1580 GOSUB 1750 
1590 RETURN 
1600 REM 

1610 REM MOSSE ERRATE 
1620 REM 
1630 ROW=24 
1640 COLUMN=1 
1650 MESSAGES =El$ 

1660 CALL SOUND(900,200,1) 
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1670 GC5SUB 1750 

1680 FOR DELAY=1 TO 200 

1690 NEXT DELAY 

1700 CALL HCHAR(23,1,32,32) 

1710 CALL HCHAR(24,1,32,32) 

1720 MUOVIDA=0 
1730 VERSO=0 
1740 GOTO 560 
1750 REM 

1760 REM STAMPA MESSAGGI 
1770 REM 

1780 FOR 1=1 TO LEN(MESSAGE?) 
1790 CHAR=ASC(SEG$(MESSAGES,1,1) 

) 

1800 CALL HCHAR(ROW,COLUMN+I,CHA 
R) 

1810 NEXT I 
1820 RETURN 
1830 REM 

1840 REM SCELTA MESSAGGI 
1850 REM 

1860 Ml$ = "TORRI DI HANOI" 

1870 M2$="VUOI LE ISTRUZIONI?" 
1880 M3$="PREMI S O N" 

1890 M4$ = "HI-SCORE:" 

1900 M5$="MOSSE:" 

1910 M6$ = "MUOVI DA?" 

1920 M7$ = "VERSO?" 

1930 M8$=" *** CE L'HAI FATTA! 

i i « 

• • 

1940 M9$="GIOCHI ANCORA?- S O N" 
1950 E1$ = "* * MOSSA NON VALIDA-RI 
TENTA" 

1960 RINGS(l)=0 
1970 RINGS(2)=7 
1980 RINGS(3)=0 
1990 FOR 1=1 TO 8 
2000 ARRAY(2,I)=I 
2010 NEXT I 
2020 ARRAY(1,8) =8 
2030 ARRAY(3,8) =8 

2040 CALL CHAR(128,"FFFFFFFFFFFF 
FFFF") 

2050 CALL CHAR(131,"FOFOFOFOFOFO 
F0F0") 

2060 CALL CHAR(133,"OFOFOFOFOFOF 
0F0F") 

2070 RINGPAT?(1)=CHR$(128) 

2080 RINGPATS(2)=CHR$(133)&CHR$( 
128)&CHR$(131) 

2090 RINGPAT?(3)=CHR$(128)&CHR$( 
128)&CHR$(128) 

2100 RINGPAT?(4)=CHR$(133)&CHR$( 
128)&CHR$(128)&CHR$(128)&CHR$(13 
1) 


2110 RINGPAT$(5)=CHR$(128)&CHR$( 
128)&CHR$(128)&CHR$(128)&CHR$(12 
8 ) 

2120 RINGPATS(6)=CHR$(133)&CHR$( 
128)&CHR$(128)&CHR$(128)&CHR$(12 
8)&CHR$(128)&CHR$(131) 

2130 RINGPATS(7)=CHR$(128)&CHR$( 
128)&CHR$(128)&CHRS(128)&CHR$(12 
| 8)&CHR$(128)&CHR$(128) 

2140 BAND$=CHR$(32)&CHR$(32)&CHR 
$(32)&CHRS(36)&CHR$(32)&CHR$(32) 
&CHR$(32) 

2150 RETURN 
2160 REM 

2170 REM MESSA A PUNTO 
2180 REM DEL QUADRO DI GIOCO 


2190 REM 

2200 CALL CLEAR 

2210 CALL SCREEN(8) 

2220 CALL CHAR(36,"1818181818181 
818") 

2230 CALL CHAR(37,"FFFFFFFFFFFFF 
FFF" ) 


2240 CALL COLOR(1,13,1) 

2250 CALL COLOR(13,7,1) 

2260 CALL HCHAR(20,2,37,30) 
2270 GOSUB 2420 
2280 ROW=1 
2290 COLUMN=1 
2300 MESSAGE$=M4$ 


2310 GOSUB 1750 
2320 COLUMN=21 
2330 MESSAGE$=M5$ 

2340 GOSUB 1750 

2350 CALL HCHAR(21,7,49) 

2360 CALL HCHAR(21,15,50) 

2370 CALL HCHAR(21,23,51) 

2380 COLUMN=13 

2390 MESSAGES=STR$(HIGHSCORE) 
2400 GOSUB 1750 
2410 RETURN 
2420 REM 


2430 REM MESSA A PUNTO DEGLI 
2440 REM ANELLI INIZIALI 
2450 REM 

2460 CALL VCHAR(6,7,36,14) 

2470 CALL VCHAR(6,15,36,14) 

2480 CALL VCHAR(6,23,36,14) 

2490 FOR X=1 TO 7 
2500 ROW= 5+(X*2) 

2510 COLUMN=14-(INT(LEN(RINGPAT$ 
(X)))/2) 

2520 MESSAGE$=RINGPAT$(X) 

2530 GOSUB 1750 
2540 NEXT X 
2550 RETURN 









Extended Basic - Joystick (opzionale) 


iXuaìtcu « m .> • 


Taco-man 


Non vi è mai capitalo di andare a coricarvi 
con un pasto pesantissimo sullo stomaco? Se 
sì. con questo gioco in òasic-Esteso per 77- 
99, vi sembrerà di rivivere quelle allucinazio¬ 
ni che vi avranno accompagnato nel sonno: 
cosce di pollo giganti, peperoni-ripieni masto¬ 
dontici e tacchini-arrosto di due metri che vi 
mseguono per masticarvi, ed altre visioni da 
incubo... 

In TACO-MAN dovrete guidare, tramite i ta¬ 
sti con le frecce o i joystick, due fette di pane 
tostato allo ricerca degli ingredienti per met¬ 
tere insieme un buon sandwich. Non sarà fa¬ 
cile digerire decine di pomodori, hamburgers 


e fette di groviera mentre siete inseguiti da 
boccacce affamale: dovete perciò fare in 
modo di ingoiare più che potete puma di es¬ 
sere ingoiati. Per tenere alla larga i morti di 
fame dovete cercare di ingoiare qualche pe- 
peperoncmo: loro, che odiano questo ingre¬ 
diente. vi staranno lontano per un po', fin¬ 
ché la fame non sarà troppo potente da tra¬ 
volgere ogni tipo di preferenze culinarie. 
Insomma. loco man è un gioco che per un 
po' vi farà passare ogni tipo di appetito: 
quindi vi conviene abbinare l'uso di questo 
programma alla pratica di una buona dieta: 
il risultato è garantito! 


100 REM ************ 

110 REM * TACO MAN * 

120 REM ************ 

130 REM 

140 REM TI 99/4A EXT.BASIC 
150 ON ERROR 180 

160 CALL INIT :: CALL LOAD(-3187 

8 , 11 ) 

170 GOTO 190 

180 CALL ERR(FF,FF) 

190 CALL CLEAR :: CALL SCREEN(5) 
200 CALL MAGNIFY(3) 

210 CALL CHAR(96,"81818181424224 
18"&RPT$("0",48),100,"0F30408080 
40300F"&RPT$("0",48)) 

220 CALL CHAR(104,"1824424281818 
181"&RPT$("0",48),108,"F0OC02010 
1020CF0"&RPT$("0",48)) 

230 CALL CHAR(33,RPT$("F",16)) 
240 CALL CHAR(116,"03lF3F7F7F7lF 
FFFOFCB4160703A1F03C0F8FCFEFE8EF 
FFFFBCB4206165CF8C0") 

250 CALL CHAR(120,"08103050787C7 
C38",81,"00006C783E740000",90,"0 
000003C2C180000",40,"00100450082 
20800") 

260 GOSUB 1210 

270 CALL COLOR(l,6,1,7,7,1,8,9,1 
,9,12,1,10,12,1,12,10,1) 

280 FOR CO= 3 TO 6 : : CALL COLOR( 

CO,7,1) : : NEXT CO 

290 DISPLAY AT(1,11):"TACO MAN" 


300 DATA 

I I I I I I " 

310 DATA 
( ( Z! il » 
320 DATA 
Q ! Z ! ! ! M 
330 DATA 
Z(QI ! !" 
340 DATA 
! Z ! ! ! ! " 
350 DATA 
!(QZ!!" 
360 DATA 
! Q ! ( ! ! " 
370 DATA 
QZ( (!!» 
380 DATA 
Z ! ( ! ! ! » 
390 DATA 
(!(!!!" 
400 DATA 
Z ! Z ! ! ! " 


i i i i i i t t t t i i t i t i i 
• •••••••••••••••• 

!QZ(! ! ! (Z(Q(ZQ(Z! 

! ( ! Q ! ! ! Q ! ! ! Z ! ! ! (! 


!ZQ((QZ(ZQZQ(Q(Z(ZQ 




ii 


! !Z! (!!!Q!Z!Z! (! ! ! ( 
(ZQ!Z! ! ! (!Q! (!Q! ! !Q 
(IZ!Q! ! !Z! ( !Q! (! ! !Z 
ZQ(QZ(QZQ(Z(Q(Q(QZ( 
! Z ! ( ! Q ! ! ! ( ! Q ! Z ! ! ! Q ! 
!Q!Z!(!!!Q!Z!(!!!Z! 
! ( !Q!Z! ! !Z! (! (! ! !Z! 


! ! !Z(Q(Z(QZQ((Z(QZ(ZQ 


410 DATA » 
(QZ! ! !" 

420 DATA » 

i ( ì i i i « 

430 DATA » 
! Z ! ! ! ! " 

440 DATA " 
! Q ! ! ! ! " 

450 DATA " 
ZQ(! ! !" 


! ! ! ! Z ! ( ! Q ! 
! ! ! ! ( ! Z ! ( ! 
! ! ! ! Q ! ( ! ( ! 


! Q ! ( ! ! ! Z ! ( 
! Z ! Q ! ! ! ( ! Q 
! ( ! Z ! ! ! Q ! Z 


! ! ! (ZQZ(ZQZ(Q(ZQ(ZQ(Z 
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460 DATA 
(!QZQ!" 
470 DATA 
Q ! Z ! ( ! " 
480 DATA 
Z ! (QZ ! " 
490 DATA 
ZZQ!! !" 
500 DATA 

MIMI" 

510 DATA 


II 


II 


! Z (Q I Z i ( ! Z ! ! ! Z ! ! ! ( ! Q ! 
! (!Z! (iQ! (!I!Q!! !Zi (! 
IQ ( Z IQ ! Z ! QI ! ! Z ! 1 ! ( ! Q ! 


ii 


! I !Z(Q(ZQZ(QZ(Q(Z(Q(Q 


" i i i i t i i i i i i i i i i i i i i i i i 


ii 


520 RESTORE 
530 D=247 

540 FOR Al=1 TO 22 :: READ A2$ 
550 DISPLAY AT(Al+1,1):A2$ 

560 NEXT Al 

570 SCREEN=1 :: MEN=4 :: SCORE=0 
:: DISPLAY AT(23,1):RPT$(CHR$(1 
00) ,MEN) : : DISPLAY AT(24,1) :"SCO 
RE:" :: DISPLAY AT(24,7) : SCORE 
580 SP=1 : : PP = 0 
590 CALL HCHAR(21,17,120) 

600 CALL HCHAR(4,7,120) : : CALL H 
CHAR(4,27,120) : : CALL HCHAR(8,6, 
120):: CALL HCHAR(8,28,120) : : CA 
LL HCHAR(19,5,120) : : CALL HCHAR( 
19,29,120) 

610 FOR RR= 2 TO 20 STEP 2 :: SP= 
SP+1 

620 CO=INT(RND* 4)+7 :: IF CO = 8 T 
HEN 620 ELSE CALL SPRITE(#SP,116 
,CO,RR*8-7,256,0,(-1)“(INT(RND*2 
))*(INT(RND*8)+SCREEN)) 

630 NEXT RR 

640 R=11 :: C=17 :: RV,RVl=-l :: 

CV,CV1=0 :: CH,CHl=96 :: CALL S 
PRITE(#l,CH,12,R*8-7,C*8-7) 

650 PP=PP-1 :: IF PP<0 THF.N 720 
660 IF PP THEN 710 
670 CALL COLOR(1,6,1) 

680 FOR SP= 2 TO 11 
690 CO=INT(RND* 4)+7 :: IF CO=8 T 
HEN 690 ELSE CALL COLOR(#SP,CO) 
700 NEXT SP 

710 IF PP= 5 THEN CALL COLOR(1,14 
,1) 

720 IF PP>0 THEN 740 

730 CALL COINC(ALL,UG) : : IF UG=- 

1 THEN 930 

74 0 CALL JOYST(1,X,Y): : CALL KEY 
(1,K,S) 

750 IF ((X=0 AND Y=0)OR(X<>0 AND 
YOO) ) AND S = 0 THEN 800 
760 IF Y= 4 OR K=5 THEN CHl = 96 :: 
RV1=-1 :: CV1=0 

770 IF X= 4 OR K= 3 THEN CHl = 100 : 

: RV1=0 :: CVl=l 


780 IF Y=-4 OR K+l=l THEN CH1=10 

4 :: RV1=1 :: CV1=0 

790 IF X=-4 OR K=2 THEN CH1=108 
I : : RV1 = 0 : : CV1 = -1 
800 CALL GCHAR(R+RVl,C+CVl,CHK): 

I : IF CHK033 THEN RV=RVl :: CV=C 
Vi :: CH=CHl ELSE CALL GCHAR(R+R 
V,C+CV,CHK) : : IF CHK=33 THEN 650 
810 R=R+RV :: C=C+CV :: CALL PAT 
TERN(#1,CH) : : CALL LOCATE(#1,R*8 
-7,C*8-7) 

820 IF CHK=32 THEN 650 

830 IF CHKO120 THEN 860 

840 PP= 26-SCREEN :: CALL COLOR(1 

,9,1) 

850 FOR SP=2 TO 11 :: CALL COLOR 
( #SP,1) : : CALL SOUND(-1,55*SP,0) 

: : NEXT SP 

860 IF CHK=40 THEN SCORE=SCORE+5 
870 IF CHK=90 THEN SCORE=SCORE+l 
0 

880 IF CHK=81 THEN SCORE=SCORE+l 

5 

890 DISPLAY AT(24,7) : SCORE :: CA 
LL SOUND(-1,-6,0) 

900 CALL HCHAR(R,C,32) 

910 D=D-1 :: IF D=0 THEN 1040 
920 GOTO 650 

930 FOR DEL= 27 TO 1 STEP -4 
940 FOR CH=96 TO 108 STEP 4 
950 CALL PATTERN(#1,CH) 

960 CALL SOUND(-1,110+DEL+CH/4,0 

) 

970 NEXT CH 
980 NEXT DEL 

990 CALL SOUND(-100,-2,4):: CALL 
SOUND(-100,-3,3):: CALL SOUND(- 
100,-2,2):: CALL SOUND(-100,-1,1 
):: CALL SOUND(-1000,-1,0) 

1000 MEN=MEN-1 :: IF MEN=-1 THEN 
1110 ELSE DISPLAY AT(23,1):RPT$ 
(CHR$(100),MEN) 

1010 SP=1 

1020 FOR RR= 3 TO 21 STEP 2 : : SP 
=SP+1 :: CALL LOCATE(#SP,RR*8-7, 
256) : : NEXT RR 
1030 GOTO 640 

1040 FOR SP=2 TO 11 :: CALL DELS 
PRITE(#SP) : : NEXT SP 
1050 CALL COLOR(1,6,1) 

1060 FOR DEL=1 TO 20 

1070 CALL SOUND(INT(RND* 200)+1,1 

10+INT(RND* 220) ,INT(RND* 3)) 

1080 NEXT DEL 
1090 SCREEN=SCREEN+1 
1100 RESTORE :: GOTO 530 
1110 CALL DELSPRITE(#1) 

1120 FOR DEL=1 TO 5 


13 











1130 DISPLAY AT(12,10)SIZE(9)BEE 
P:RPT$(CHR$(100),4)";RPT$(CHR 
$(108) ,4) 

1140 DISPLAY AT (12,10)SIZE(9)BEE 
P:"GAME OVER" 

1150 NEXT DEL 

1160 DISPLAY AT(15,1):" UN ALTR 
O TENTATIVO? (S/N)" 

1170 CALL KEY(0,K,S) : : IF S = 0 TH 
EN 1170 

1180 IF K=78 OR K=110 THEN CALL 
CLEAR : : END 

1190 IF K<>83 AND K<>115 THEN 11 
70 

1200 CALL CLEAR :: GOTO 290 
1210 FOR CO=l TO 14 :: CALL COLO 
R(CO,2,1) : : NEXT.CO 
1220 DISPLAY AT(2,11):"TACO MAN" 
1230 DISPLAY AT(6,2):"RILASCIA I 
L TASTO ALPHA LOCK" 

1240 DISPLAY AT(8,1):"USA IL JOY 
STICK 101 TASTI ” 

1250 DISPLAY AT(9,l):"CON LE FRE 
CCE-E,X,S,D-." 

1260 DISPLAY AT(11,2):CHR$(100); 
" TACO MAN" 

1270 DISPLAY AT (12 , 2): CHR$ (81)&" 
HAMBURGER 15 PUNTI" 

1280 DISPLAY AT(13,2):CHR$(90)&" 
POMODORI 10 P.TI " 

1290 DISPLAY AT ( 14,2) : CHR$ ( 40 ) 6." 

GROVIERA 5 P.TI" 

1300 DISPLAY AT(15,2):CHR$(120)& 
" PEPERONCINO" 

1310 DISPLAY AT(16,2):CHR$(116)& 
CHR$(118) 

1320 DISPLAY AT(17,2):CHR$(117)& 
CHR$ ( 119)6." MORTI DI FAME" 

1330 DISPLAY AT(20,1):"VUOI IL R 


EGOLAMENTO? S/N " 

1340 CALL KEY( 0 , K , S) : : IF S<1 TH 
EN 1340 

1350 IF K=78 OR K=110 THEN CALL 
CLEAR :: CALL COLOR(2,11,1) : : RE 
TURN 

1360 IF K<>83 AND K<>115 THEN 13 
40 

1370 CALL CLEAR 

1380 PRINT " SCOPO DEL GIOCO:" 

• • 

• • 

1390 PRINT "GUIDARE IL PANE PER 
TOAST" 

1400 PRINT "ATTRAVERSO I CORRIDO 
I ED":"INGOIARE IL MAGGIOR NUMER 
O" :"DI HAMBURGER,POMODORI E":"GR 
OVIERA PRIMA DI ESSERE": 

1410 PRINT "PAPPATO DAI MORTI DI 
FAME.": :"UN PICCOLO CONSIGLIO 
SU " : "DI LORO:":"ODIANO IL PEPER 
ONCINO E SE" 

1420 PRINT "NE HAI APPENA PRESO 
UNO,":"FUGGONO LONTANO PER UN PO 
’.":"NON PER MOLTO, PERO':":"VIS 
TA LA LORO FAME,":"TORNERANNO PR 
ESTO. ": 

1430 PRINT '."PREMI UN TASTO": "PE 
R CONTINUARE" 

1440 CALL KEY(0,K,S): : IF S<1 TH 
EN 1440 ELSE CALL CLEAR 
1450 PRINT " IL GIOCO PARTE CON 
5 FETTE DI PANE , O TACO-MA 

N":"E TERMINA DOPO CHE SONO ":"S 
TATE TRANGUGIATE TUTTE." 

1460 PRINT :" PREMI UN TASTO":" 
PER COMINCIARE" 

1470 CALL KEY(0,K,S) : : IF S<1 TH 
EN 1470 ELSE CALL CLEAR :: CALL 
COLOR(2,11,1) : : 


Duello 


lincisi^ 

Spectrupf 


'DUELLO' è un entusiasmante programma, 
realizzato interamente in Basic in modo pro¬ 
fessionale per lo Spectrum 16K, che consen¬ 
te a due giocatori di combattere l'uno contro 
l'altro muniti di potenti pistole... ad acqua. 
Il programma è costituito da due pani distin¬ 


te: in particolare il listato I, che contiene le 
istruzioni di gioco e la routine di caricamento 
dei caratteri grafici, va salvato con il coman 
do SAVE "DUELLO". Il listato 2 va invece re 
gistrato su nastro di seguito al primo con il 
comando SAVE "ATTENDI " LINE I, in mo¬ 


li 


















do da essere reso autopartente. 

I comandi per i pistoleri blu sono i tasti I per 
muoversi verso l'alto e Z per andare verso il 
basso, Q per estrarre l'arma e W per rinfo¬ 
derarla, A per sparare; per i pistoleri color 
magenta i comandi sono 0 e SYMBOL SHIFT 


per muoversi su e giù, P e 0 per estrarre e 
rinfoderare e E.NTER per sparare. 

Vince il gioco chi per primo riesce ad elimina¬ 
re IO pistoleri dell'altra gang, evitando an¬ 
che le insidie e casuali apparizioni di un car¬ 
ro di banditi. 


Programma n. I 

1 REM *** DUELLO *** 

30 PRINT '"Due bande rivali, 
armate di pistoLe ad acq 
ua, si incontrano una notte 
nel deserto per darsi batt 
aglia." 

40 PRINT '"La banda a destra 

e' INK 3;"MAGENTA" 

50 PRINT '"La banda a sinistra 

e' INK 1;"BLU" 

60 PRINT '"Per cortesia, atte 
ndi mentre vengono carie 
ati i necessari caratteri 
grafici."'"In linea con 
la tradizione SINCLAIR, 
una dolce melodia (?) verrà 
' suonata mentre aspetti." 
70 GO SUB 9000 
80 DIM a$(704) 

90 PRINT OVER 1; INK 4; 

PAPER 0 ;AT 0,0;a$ 

100 BORDER 4 

110 PRINT AT 21,2;" Premi ENTER 
per continuare " 

120 PAUSE 4e4 

140 PRINT AT 1,0; OVER 1; INK 7 
;a$( TO 672) 

150 PRINT AT 2,0 ;"MESSAGGIO PER 
LA BANDA "; INK 1;"BLU": 
INK 0 

160 PRINT '"I tuoi comandi sono 


170 

180 

190 

200 

210 

220 


PRINT ' 

"TASTO FUNZIONE" 


PRINT " 
alto" 

1 

Ti sposta 

in 

PRINT " 
basso" 

Z | 

Ti sposta 

in 

PRINT " 

q : 

Estrai la 

pis 

tola " '" 


(in questa 

f as 

e NON 
ti) " 

PUOI" 1 

1 " | muover 

PRINT " 

w 

Rinfodera 

la 

pistola 

II 1 II 

1 (cosi' 

PUÒ 


I nuovamente"'" | muov 

erti) " 

PRINT " A | Schizza [fuoc 
o] " 


230 PRINT AT 21,2;" Premi ENTER 
per continuare " 

240 BORDER 0 
250 PAUSE 4e4 

260 PAPER 2: INK 7: PRINT AT 0, 
0; INK 6; PAPER 2; OVER l;a 
$ ;AT 1,0; OVER 0;a$( TO 672 
) 


350 

PRINT 

AT 

2, 

0; 

; "MESSAGGIO 

PER 


LA BANDA 

II 

• 

9 

INK 3;"MAGENTA 


INK 7 





360 

PRINT 

• ii 

"'I 

tuoi comandi 

sono 

370 

• * 

PRINT 

’"TASTO 1 FUNZIONE 

ii 

380 

PRINT 

alto" 

II 

0 


Ti sposta 

in 

390 

PRINT 

INK 

2; PAPER 0;" 

SYMB 


OL SHIFT" 

• 

9 

INK 7; PAPER 

2;" 


Ti 

sposta 

in basso" 


400 

PRINT 

ii 

P 


Estrai la 

pis 


tola" 

i ii 



(in questa 

fas 


e NON PUOI"'" | muover 

ti) " 

410 PRINT " O | Rinfodera la 
pistola"'" |(cosi v PUÒ 

I nuovamente"'" | muov 

erti ) " 

420 PRINT " A | Schizza [fuoc 
o] " 

430 PRINT AT 21,2;" Premi ENTER 
per continuare " 

440 PAUSE 4e4 

450 PRINT AT l,0;a$( TO 672) 

460 BORDER 6 

500 PRINT AT 1,0 ;"ISTRUZIONI PE 
R LE DUE BANDE:-" 

510 PRINT '"Potete premere piu 
' tasti nel"'"medesimo temp 
o" 

520 PRINT "Potete sparare cont 
ro ogni"'"oggetto" 

530 PRINT "Potete muovervi fuor 
i dal video"'"(p.es. se use 
ite dal di sopra"'"riappari 
te dal di sotto)" 

540 PRINT '"Di volta in volta d 
ue pistoleri combattono fra 
loro, anche se talvolta 
un carro attraversa lo s 
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chermo cercando di ferirvi 
alle gambe : vi salverete 
se sarete al riparo di u 
n CACTUS" 

550 PRINT FLASH 1' BRIGHT l'"F 
AI PARTIRE IL NASTRO" 

560 LOAD "" 

600 SAVE "ATTENDI" LINE 1 

8999 STOP 

9000 FOR j=144 TO 164: BEEP .4,- 

140+(j* 1.2): FOR k = 0 TO 7: 

BEEP ,002,40+(k*2): READ n 
: POKE USR CHR$ j+k,n: 

NEXT k: NEXT j 
9020 RETURN 

9030 DATA 24,126,24,24,126,126,1 
26,126,126,126,60,60,60,60, 
126,255,24,126,24,24,63,63, 


60,60,56,56,24,24,24,24,28, 

30,0,0,0,0,222,208,0,0,24,1 

26,24,24,252,252,60,60,28,2 

8,24,24,24,24,56,120,0,0,0, 

0,123,11,0,0,0,0,0,0,64,97, 

127,127,0,0,2,2,15,255,242, 

243,0,0,64,64,240,255,79,20 

7,0,0,0,0,2,130,254,254,31, 

48,96,64,192,128,128,128,24 

8,12,6,2,3,1,1,1,192,64,64, 

64,64,127,127,15,3,2,2,2,2, 

254,254,240,244,244,244,254 

,254,4,4,4,47,47,47,127,127 

,32,32,32,145,66,60,37,164, 

60,66,137,0,2,7,71,231,231, 

231,231,231,119,127,62,60,6 

0,60,60 


Programma n. 2 


1 BORDER 0: PAPER 0: INK 9: 
CLS 

10 LET a=21: LET b=0: LET c=l: 
LET d=31 

20 LET ls = 0 : LET rs = 0 

100 PRINT AT 10,1;"DUELLO" 

101 PRINT ' INK 1; "BLU" , INK 3; 
"MAGENTA"’' INK 6;"1...SU.. 

.0","Q...ESTRAI. 

• P'V'W. . .RINFODERA 0","A. 

..FUOCO."; INK 7 ; "ENT 

ER", INK 6;"Z...GIU'. 

."; INK 2;"SYMBOL SHIFT" 

102 FOR s=0 TO 3 

105 BEEP .1,0: BEEP .1,1: 

BEEP .07,0: BEEP .2,-1 

106 FOR f=-40 TO 40 STEP 10: 

FOR g=0 TO .9 STEP .1: 

BEEP .01,f+g: NEXT g: 

NEXT f 

107 NEXT s 

108 BEEP 2,30: BEEP 1,35: 

BEEP .5,40: BEEP .25,45: 
BEEP .1,50 

900 CLS : PRINT AT 21,3; 

PAPER 1; INK 7;" PUNTI ";1 
s;TAB 16; PAPER 3; INK 7;" 
PUNTI ";rs: 

RANDOMIZE 

910 INK 4: BRIGHT 1: FOR f=3 

TO 18 STEP 3: PRINT AT f,5 
;"T";AT f-1,26;"T";AT f+1,5 
; "U";AT f, 26 ; !'U" : NEXT f 

911 INK 8 

920 FOR f=0 TO 3: PRINT AT f*6. 


15; INK 7; "MN" ;AT f*6+l,15; 
INK 2 ;"OP";AT f*6+2,15; 

INK 2 ;"RQ": NEXT f 
930 BRIGHT 0 

1005 LET z=145: LET x = 145 

1010 FOR q=20 TO 20+INT (RND*300 

) 

1011 LET a=a-(IN 63486=254 AND x 
<>14/J+(IN 652 /8 = 03 

AND x<>147)+(a<2)-(a>20) 

1020 LET c=c-( IN 61438=254 AND Z 
0150) + ( IN 32766 = 253 
AND z<>150)+(c<2)-(c>20) 

1022 IF IN 645100255 THEN 

LET x=147 

1023 IF IN 573420255 THEN 

LET z=150 

1024 IF IN 64510=253 THEN LET x 
=145: PRINT AT a-1,1;" " 

1025 IF IN 57342=253 THEN LET z 
=145: PRINT AT c-l,30;" " 

1026 BEEP .005,-10: BEEP .005,69 

1030 IF a>=21 THEN LET a=2: 

PRINT AT 19,0;” "; AT 20,0; 

I! ff 

1031 IF a< 21 THEN PRINT AT a + 1, 
0;" " 

1032 IF c< 21 THEN PRINT AT c+1, 
31;" " 

1035 PRINT AT 0,0;" ”;AT 0,31;" 

ft 

1040 IF 0 = 21 THEN LET c = 2: 
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PRINT AT 19,31;" ";AT 20,3 

I . » n 

1050 IF C>1 THEN PRINT AT c-2,3 

1 . « » 

1051 IF c<=l THEN LET c=20: 

PRINT AT 1,31;" ";AT 2,31; 

n ii 

1060 IF a>l THEN PRINT AT a-2,0 

• ii ti 
t 

1061 IF a<=l THEN LET a=20: 

PRINT AT 1,0;" ";AT 2,0;" 

ti 

1070 PRINT AT a,b; INK 1;CHR$ x; 
AT a-1,0; INK 1;CHR$ (x-1); 
AT c,d; INK 3;CHR$ z;AT c-1 
,d; INK 3;CHR$ (z-1) 

1080 IF x=147 THEN PRINT AT a-1 
,1; INK 1;"E" 

1081 IF z=150 THEN PRINT AT c-1 
,30; INK 3;"H" 

1090 IF IN 650220255 AND x=14 
7 THEN GO SUB 3000 
1100 IF IN 491500255 AND z = 15 
0 THEN GO SUB 3100 
2000 NEXT q 

2010 LET q=INT (RND*2) 

2011 IF q=l THEN LET w=c 

2012 IF q=0 THEN LET w=a 

2013 LET r=q*11+9 
2015 FOR f=l TO w—1 

2020 PRINT AT f-l,r;" ";AT f,r; 

INK 7 ;"MN";AT f+l,r; INK 2 
;"OP";AT 2+f,r; INK 2;"RQ"; 
BEEP 0.01,f* 3 
2030 NEXT f 

2040 IF q=l THEN GO TO 2500 
2050 PRINT AT a,r-l; INK 3;"HF" 
2060 IF ATTR (a, 5) >'=64 THEN 
GO TO 2200 

2100 INK 6: PLOT 54,171-(a*8): 
DRAW -50,0: BEEP .01,39: 
DRAW OVER 1; 50,0 : GO TO 3 
300 

2200 INK 6: PLOT 54,171-(a*8) : 
DRAW -11,0: BEEP .01,68: 
PRINT AT a,5 ;"G": DRAW 
OVER 1; 11,0 : PRINT AT a,5; 

II «I 

2225 GO SUB 6e3 
2231 FOR f=w-1 TO 18 

2235 PRINT AT f-l,r;" ";AT f,r; 

INK 7;"MN";AT f+l,r-l; 

INK 2;" OP ";AT 2+f,r; 

INK 2 ;"RQ": BEEP .01,f*3 

2236 NEXT f 

2239 PRINT AT f-l,r;" ";AT f,r; 

" ";AT f+1,r;" " 

2240 GO TO 1010 


2500 PRINT AT c,r+l; INK 1;"CE" 
2510 IF ATTR (c,26)>=64 THEN 
GO TO 2600 

2520 INK 6: PLOT 185,171-(c*8): 
DRAW 56,0: BEEP .01,60: 
DRAW OVER 1;- 56, 0 : 

GO TO 3200 

2600 INK 6: PLOT 185,171-(c*8): 
DRAW 26,0: BEEP .01,68: 
PRINT AT c,26 ;"G": DRAW 
OVER 1;-26,0 

2610 PRINT AT c,26;" ": GO TO 22 
25 

3000 IF ATTR (a-1,5)>=64 THEN 
GO TO 4050 

3010 IF ATTR (a-1,15)>=64 THEN 
GO TO 4150 

3020 IF ATTR (a-1,16)>=64 THEN 
GO TO 4160 

3030 IF ATTR (a-1,26)>=64 THEN 
GO TO 4260 

3085 INK 7: PLOT 16,179-(a*8): 
DRAW 238,0: BEEP .01,60: 
DRAW OVER l;-238,0: 

PLOT OVER 1;254,179-(a*8) 

3090 IF a=c OR a-l=c THEN 
GO SUB 3200 
3099 RETURN 

3130 IF ATTR (c-1,26)>=64 THEN 
GO TO 5260 

3160 IF ATTR (c-1,16)>=64 THEN 
GO TO 5160 

3170 IF ATTR (c-1,15)>=64 THEN 
GO TO 5150 

3180 IF ATTR (c-1,5)>=64 THEN 
GO TO 5050 

3190 PLOT 238,179-(c*8): DRAW -2 
35,0: BEEP .005,40: BEEP .0 
05,50: DRAW OVER 1;235,0: 
PLOT OVER 1 ; 3,179-(c*8) 
3195 IF c=a OR c-l=a THEN 
GO SUB 3300 
3198 RETURN 

3200 PRINT AT c,30; INK 3;"IJ"; 

AT c-1,30;" " 

3205 LET ls=ls+1 

3215 PRINT AT 0,1; INK 5;"<--QUE 
STO PISTOLERO HA VINTO": 

FOR f=-60 TO 60: BEEP .01, 
f: NEXT f 

3216 IF ls=10 THEN GO TO 3600 
3220 CLS : LET a=INT (RND*19)+2: 

LET C= INT (RND*19)+2 : 

GO TO 900 

3300 PRINT AT a,0; INK 1;"KL"; 

AT a-1,0;" " 

3305 LET rs=rs+l 
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3310 IF rs=10 THEN GO TO 3500 
3315 PRINT AT 0,2; INK 5;"QUESTO 

PISTOLERO HA VINTO—>”: 

FOR f=-60 TO 60: BEEP .01, 
f: NEXT f 

3320 CLS : LET a=INT (RND*19)+2: 

LET C=INT (RND*19)+2 : 

GO TO 900 

3500 CLS : FOR f=0 TO 9: PRINT 

AT f,0 ; INK 1;"KL": BEEP .5 
,0: NEXT f 

3510 FOR f=l TO ls: PRINT AT f,3 
0; INK 3 ; "IJ" : BEEP .5,0: 

NEXT f 

3520 INK 3: FOR f=21 TO 20+10-ls 
: PRINT AT 10,f;"A";AT 11,f 
;"B": BEEP 1,f* 2/3 : NEXT f 
3530 INK 5: PRINT AT 15,2;"LA PI 

STOLA PIU' VELOCE->" 

3598 GO TO 7e3 

3600 CLS : FOR f=0 TO 9: PRINT 

AT f,30 ; INK 3;"IJ": BEEP . 
5,0: NEXT f 

3610 FOR f=l TO rs: PRINT AT f,0 
; INK 1;"KL": BEEP .5,0: 

NEXT f 

3620 INK 1: FOR f=l TO 10-rs: 

PRINT AT 10,f;"A";AT 11,f; 
"B": BEEP 1,f* 5 : NEXT f 

3630 INK 5: PRINT AT 15,2;"<- 

LA PISTOLA PIU' VELOCE" 

3700 GO TO 7e3 

4050 PLOT 16,179-(a*8) : DRAW 30, 
0: BEEP .02,-10: DRAW 

OVER 1; - 30,0 : PRINT AT a-1 
,5;"G": BEEP .005,0: 

PRINT AT a-1,5;" " 

4099 RETURN 

4150 PLOT 16,179-(a*8) : DRAW 106 
,0: BEEP .02,-10: DRAW 

OVER 1;-106,0 : PRINT AT a- 
1,15;"G": BEEP .005,0: 

PRINT AT a-1,15;" " 

4159 RETURN 

4160 PLOT 16,179-(a*8): DRAW 117 
,0: BEEP .02,-10: DRAW 

OVER 1;-117,0 : PRINT AT a- 
1,16;"G": BEEP .005,0: 

PRINT AT a-1,16;" " 

4169 RETURN 

4260 PLOT 16,179-(a*8) : DRAW 197 
,0: BEEP .02,-10: DRAW 

OVER 1;-197,0: PRINT AT a- 
1,26;"G": BEEP .005,0: 

PRINT AT a-1,26;" " 

4269 RETURN 

5050 PLOT 238,179-(c*8): DRAW -1 
93,0: BEEP .02,-5: DRAW 


OVER 1; 193,0 : PRINT AT c-1 
,5;"G": BEEP .005,5: 

PRINT AT C-1,5;" " 

5059 RETURN 

5150 PLOT 238,179-(c*8): DRAW -1 
14,0: BEEP .02,-5: DRAW 
OVER 1; 114,0 : PRINT AT c-1 
,15;"G": BEEP .005,5: 

PRINT AT c-1,15;" " 

5159 RETURN 

5160 PLOT 238,179-(c*8): DRAW -1 
05,0: BEEP .02,-5: DRAW 

OVER 1;105,0: PRINT AT C-1 
, 16;"G": BEEP . 005,5: 

PRINT AT C-1,16;" " 

5169 RETURN 

5260 PLOT 238,179-(c*8) : DRAW -2 
3,0: BEEP .02,-5: DRAW 
OVER 1; 23,0 : PRINT AT c-1, 
26;"G": BEEP .005,5: 

PRINT AT c-1,26;" " 

5269 RETURN 

5999 STOP 

6000 FOR v=-40 TO 60 STEP 20: 

FOR s=40 TO -60 STEP -20: 
BEEP .01, s : BEEP .01,v: 
NEXT s: NEXT v: RETURN 

7000 PRINT AT 19,0;"UN'ALTRA SFI 
DA? (premi un tasto)": IF 
INKEY? < >"" THEN RUN 

7001 GO TO 7e3 
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Cancella 




Spectru 



Ecco una breve routine in Basic, che ne con¬ 
tiene una in linguaggio macchina, utilizzan¬ 
do la quale è possibile cancellare instanto- 
neomente intere sezioni di un programma 
man mano che quest ’ultimo viene migliorato 
e corretto. 

I numeri di linea di questa routine devono es¬ 
sere molto elevati. cosi come deve essere ai¬ 
ta la zona di memoria occupata dalla routi 
ne in l/m e questo per rendere possibile la si¬ 
multanea presenza in memoria della routine 
eh cancellamento e del programma cui inten¬ 
diamo applicarla. 

9900 REM *** CANCELLA *** 

9910 CLEAR 65499: RESTORE 9950: 
LET a=65500 

9920 READ n: IF n=257 THEN 
GO TO 9970 
9930 POKE a,n 

9940 LET a=a+l: GO TO 9920 
9950 DATA 33,0,0,229,33,0,0,35,2 
05,110,25,227,205,110,25 
9960 DATA 32,1,235,225,167,237,8 
2,216,25,205,229,25,201,257 


Il listato qui presentato è adatto ailo Spec- 
trurn 48K; per utilizzarla sul I6K. bisogna 
modificare la linea 9010 e la linea 9995: 
9010 CITAR 32499: RESTORh 9950: LET a 
= 32500 

9995 RANDOMIZE USR 32500 
Inoltre i quattro POKE alie linee 9980 e 9990 
devono essere rispettivamente riferiti ai se¬ 
guenti quattro indirizzi: 

32501: 32502: 32505: 32506 
Salvatela su nastro: quando vi servirà potrà 
essere caricata con MLRGE senza interferire 
con un programma già in memoria. 


9970 CLS : PRINT "Cancella dalla 
linea :"; : INPUT a : 

PRINT a 

9975 PRINT "alla linea 

: INPUT b: PRINT b 

9976 CLS 

9980 POKE 65501,a-256*INT (a/256 
): POKE 65502,INT (a/256) 
9990 POKE 65505,b-256*INT (b/256 
): POKE 65506,INT (b/256) 
9995 RANDOMIZE USR 65500 


Mille miglia 



Joystick (opzionale) 


Mettete alla prova la vostra abilità di guida¬ 
tori percorrendo una strada tortuosa ed irta 
di ostacoli. Man mano che procederete, la 
strada diverrà sempre più stretta, con mag¬ 
gior rischio di incidenti: più a lungo resistere¬ 
te. più alto sarà il vostro punteggio. Scegliete 
uno dei quattro livelli di difficoltà: il primo è 
per i principianti, nel secondo le curve seno 


più strette, nel terzo curve larghe ma ostaco¬ 
li sparsi qua e là. nel quarto curve strette ed 
ostacoli. Se urlate il bordo della pista od un 
ostacolo, il gioco termina mostrandovi la iar 
g Pezza della strada ed il punteggio. Usate ii 
tasto "C" per andare a sinistra ed "M" per 
andare a destra. 
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0 PRINTCHR$(142) :POKE52,48 :P0KE5 
6,48:CLR:POKE53280,1:POKE53281 

,1 

1 PRINT"{CLR}{RED}{ 10 GIU'} 

{ 11 DES}ATTENDI UN ATTIMO":GO 
SUB260 

2 POKE53280,15 :POKE53281,15 

3 PRINT"{CLR}{ 3 GIU'}{ 5 DES} 
{RED}IMPOSTA IL LIVELLO:[<7>]" 
:PRINT"{ 3 GIU'}"TAB(12)"{BLK} 
1[<4>] PER {WHT}NOVELLINO[<7>] 

II 

4 PRINT"{ 3 GIU'}"TAB(12)"{BLK}2 
[<4>] PER {WHT}DILETTANTE[<7>] 

II 

5 PRINT"{ 3 GIU'}"TAB(12)"{BLK}3 
[<4>] PER {WHT}PROFESSIONISTA 
[<7>]" 

6 PRINT"{ 3 GIU'}"TAB(12)"{BLK}4 
[<4>] PER {WHT}ESPERTO[<7>]":P 
RINT"{ 3 GIU'}"TAB(12)"{BLK}5 
[<4>] -FINE- [< 7>]" 

7 GETB$:IFB$=""THEN7 

8 J=VAL(B$):IFJ<10RJ>5THEN7 

9 L=54272 :IFJ = 5THENPOKE53272,21 : 
SYS2048 

10 IFA$ = "N"THENl4 

11 PRINT"{CLR}{WHT}{ 6 GIU'} USA 

I TASTI: C (SINISTRA) E M (D 
ESTRA)" 

12 PRINT"{GIU'} PUOI ANCHE USARE 

IL JOYSTICK (PORTA 2) " 

13 FORS=lTO3000:NEXTS 

14 PRINTCHR?(147) 

15 POKE650,255:N=1516 

16 POKE53280,11:POKE53281,11 

17 1=.1 :IFJ=20RJ = 4THENI = .2 :N=151 
8 

18 AM$="{ 13 D}" 

20 PU=0 

22 FORQ=lT04 

23 FORC =13TO0STEP-1 

25 FORA=1T07.2STEPI 

26 Y=COS(A) 

27 F=F+1:R=RND(0) 

28 IFPEEK(N+ 4 0)=6 50RPEEK(N-1)=65 
ORPEEK(N+l)=650RPEEK(N-40)=65 
THEN110 

29 PRINTTAB(10*Y+13) [<8>]A";" 

{BLK}";LEFT$(AM$,C);"[<8>] A 
{WHT}":IFR>.5THEN40 

30 IFJ =lORJ = 2THEN40 

32 IFF> 25THENX=INT(25*RND(1) ) : PO 
KE194 4+X+L,3 :POKE1944+X,66 
40 IFF>=25THENPOKEN+L,1:POKEN,64 
:FORT=ITO50 :NEXTT:POKEN+L,0 :P 
OKEN,68 

42 IFPEEK(N+40)=650RPEEK(N-1)=65 
ORPEEK(N+l)=650RPEEK(N-40)=65 


THEN110 

43 IFF>=25THENP=PEEK(56320):D=15 
-(PAND15) 

44 IFD = 4THENN=N-1: GOTO51 

45 IFD=8THENN=N+1:GOT051 

46 IFD = 6THENN=N+39: GOTO51 

47 IFD=10THENN=N+41: GOTO51 

49 GETB$ 

50 N=N+(B$="C")-(B$ = "M" ) 

51 IFPEEK(N)=660RPEEK(N+40)=660R 
PEEK(N-1)=660RPEEK(N+l)=66THE 
N110 

70 PU=PU+1 

80 NEXTA:NEXTC:NEXTQ 
110 POKEN,67:POKEN+L,2 
120 POKEN-1,67:POKEN-1+L,7 
130 POKEN+1,67 :POKEN+l+L,7 
140 POKEN+40,67 :POKEN+40+L,15 
150 POKEN-40,67 :POKEN-4 0+L,15 
160 V=54296:W=54276:A=54277:H=54 
273:L=54272 

170 FORX= 45TOOSTEP-1:POKEV,X:POK 
EW,129 :POKEA,15:POKEH,40 :POK 
EL,200:NEXT 

180 POKEW,0 :POKEA,0:F = 0:D = 0 
190 POKE198,0 :PRINT"{GIU'}LA STR 
ADA E' LARGA ";C;"METRI" 

200 PRINT"IL TUO PUNTEGGIO E' 

INT(10000/C+5*PU) 

210 PRINT"GIOCHI ANCORA (S/N)?": 
PRINT"COL JOYSTICK, PULSANTE 
PER RIGIOCARE" 

215 P=PEEK(56320):FR=PAND16:IFFR 
= 0THEN14 

220 GETA$:IFA$=""OR(A$<>"S"ANDA$ 
<>"N"ANDFR<>0)THEN215 
230 IFA$="S"THEN14 
240 IFA$="N"THEN2 
260 POKE56334,PEEK(56334)AND254 
270 POKE1,PEEK(1)AND251 
280 FORI=0TO511:POKEI+12288,PEEK 
(1+53248):NEXT 
290 POKE1,PEEK(1)OR4 
300 POKE56334,PEEK(56334)ORI 
310 POKE53272,(PEEK(53272)AND240 
) OR 12 

320 FORC=12800TO12839:READZ:POKE 
C,Z:NEXT 

330 DATAI53,255,189,60,60,189,25 
5,153 

340 DATA255,255,255,60,60,255,25 

5,255 

350 DATA24,60,128,255,255,255,25 

5.255 

360 DATA154,82,0,27,216,0,74,137 

365 DATA255,255,255,255,255,255, 

255.255 
370 RETURN 
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La casa stregata 



Una strega ha catturato alcuni socievoli gat¬ 
tini e li ha portati nella sua spettrale dimora; 
tocca a voi cercare di salvarli evitando fanta¬ 
smi, pipistrelli e spiriti maligni. Il gioco è a sei 
livelli di difficoltà; per ogni gatto che prende¬ 
te dovete ritornare al corridoio p'ù basso ed 
ivi deporlo, in quanto è questo l’unico luogo 


100 POKE52,48 :POKE5 6,48:CLR 
102 POKE 5 3 2 8 0,0 :POKE53281,0 
105 PRINT"{CLR}[<7>]{ 3 GIU'}*** 
*********{RVS}LA CASA STREGA 
TA{OFF}************"; 

107 PRINT"{ 13 GIU 1 }{ 9 SPAZljRI 
DEFINIZIONE CARATTERI" 

108 POKE563 34,PEEK{56334)AND254 : 
POKEl,PEÉK(1)AND251 

110 FORI=0TO511:POKEl2288+1,PEEK 
(53248+1):NEXT 

115 POKEl,PEEK(1)OR4:POKE56334,P 
EEK(56334)ORI 

120 FORI = 832T0936 :READA:POKEl, A: 
NEXT 

130 FOR1 = 12288 + 35*8TO12288 + 45*8 + 
7 :READA:POKEl,A:NEXT 
140 FOR1 = 12288 + 27*8TO12288 + 31*8 + 
7 :READA:POKEI,A :NEXT 
150 FORI=12288+58*8T012288+62*8+ 
7 :READA:POKEI,A:NEXT 

152 SC=1024 

153 CM=54272 

155 SH=54273:SL=54272:V=54296:WF 
= 54276:0=0:P=1:Q=40: DIMA(13) 
:POKEV,15 

157 POKESL+5,17 :POKESL+6,241 
160 GOSUB800 
165 GOSUB900 

170 POKE53272,(PEEK(53272)AND240 
) +12 

175 GOSUB1000:RN=RN+1 
200 CL=SC+859 

210 JP = 15-PEEK(56320)AND15 :IFJP= 
8THENJP = 3 : GOTO215 

211 IFJP=2THENJP=5:GOT0215 

212 IFJP=4THENJP=7:GOT0215 

213 IFJP=1THEN215 

214 JP=2 

215 TL=CL:Z=TL:ONJPGOSUB301,300, 


sicuro per i poveri gattini. Se incontrate un 
fantasma o un pipistrello vi spaventate e la¬ 
sciate cadere il gatto, che viene riposto in un 
altro punto del labirinto. Più gatti porterete 
in salvo, più alto sarà il vostro punteggio. 
Buon divertimento! 


303,300,305,300,307,300 
220 CL= Z:POKEV,15 :POKESH,50 :POKE 
WF,17 :GOSUB4 00 :POKEWF,16 
225 IFDFTHEN500 

230 POKETL,32 :POKECL,58 :POKECM+C 
L,3+CF 

232 GOSUB700:IFCC=1THENF0RX=1T01 
500 :NEXT: GOTO170 
235 GOSUB600:IFDFTHEN500 
240 GOTO210 

300 RETURN 

301 Z = Z-Q: RETURN 
303 Z=Z+P:RETURN 
305 Z = Z +Q: RETURN 
307 Z=Z-P:RETURN 

400 REM CONTROLLO COLLISIONE 
405 IFPEEK(CL)=440RPEEK(CL)=450R 
PEEK(CL)=35THENCL=TL:RETURN 
407 IFCFANDCL<SC+873ANDCL>SC+845 
THEN2000 

410 IFCFANDPEEK(CL)=60THENCL=TL: 
RETURN 

415 IFPEEK(CL)=60THENCF=4:POKEWF 
,33:FORI=lTO100:NEXT:RETURN 
420 IFPEEK(CL)=610RPEEK(CL)=59TH 
EN1800 

425 IFPEEK(CL)=31THEN1900 
430 RETURN 
500 REM **** 

510 PRINT"{CLR}[<7>]{GIU 1 } 

{ 10 DESjUN’ALTRA VITTIMA!" 
520 POKE53272,21 
525 PRINT"{GIU'}{ 10 DES} 

{ 4 SPAZI}LIVELLO"AA 
530 PRINT"{GIU'}{ 11 DES}ROUND"R 
N"PUNTI"SR 

540 PRINT"{GIU 1 }{ 7 DESjGIOCHI A 
NCORA?{ 2 SPAZI}{RVS}S{OFF} 
OR {RVS}N{OFF}" 

550 GETA$:IFA$=""THEN550 
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560 IFAS = "S"THENCF = 0:GOTO570 

562 IFA$O"N"THEM5 50 

565 SYS2048 

570 RN=0:SR=0:DF=0 

575 GOTO165 

600 REM ****** 

610 I = INT(RND(1)*(AA* 2))+1 
620 TL=A(I):Z=TL:POKEA(I),32 
630 ONINT(RND(1)*4)+1GOSUB301,30 
3,305,307 

635 IFZ>SC+845ANDZ<SC+873THEN660 

640 IFPEEK(Z)=58THEN1900 
650 IFPEEK(Z)=32THENA(I)=Z 
660 POKEA(I) ,31:POKECM+A(I) ,4 : RE 
TURN 

700 PRINT"{HOME}{ 23 GIU'} 

{ 10 DES}{WHT}ROUND"RN"PUNTI 

"SR"{SIN} RETURN 
800 PRINT"{CLR}TU{ 2 SPAZI}ENTRE 
RAI NELLA{ 2 SPAZI}CASA DI U 
NA STREGA. " ; 

815 PRINT"{GIU 1 }LA STREGA E'FUOR 
I,CHE VOLA SULLA SCOPA. 

820 PRINT"{GIU'}ESSA{ 2 SPAZl}HA 
CATTURATO{ 2 SPAZI}DEI GATT 
I GIALLI E{ 2 SPAZI}"; 

825 PRINT"{GIU'}VUOLE STREGARLI, 
MA TU PUOI INTERVENIRE 
{GIU'}E{ 2 SPAZI}SALVARLI. " 

830 PRINT"{GIU'{UTILIZZANDO IL J 
OYSTICK DEVI RACCOGLIERE"; 
832 PRINT"{GIU'}UN GATTO PER VOL 
TA E PORTARLO IN FONDO 
{ 2 SPAZI}"; 

835 PRINT"{GIU'}AL QUADRO. 

{ 2 SPAZI}MENTRE TRASPORTI U 
N GATTO, "; 

837 PRINT"{GIU'} TU DIVENTI GIAL 
LO.PUOI PORTARE SOLAMENTE"; 
840 PRINT"{GIU'}UN GATTO PER VOL 
TA.I PUNTI AUMENTANO PER"; 
845 PRINT"{GIU’}OGNI GATTO CHE S 
ALVI,QUANDO HAI SALVATO 
{GIU’}10 GATTI,HAI UN'ALTRA 
CASA" 

847 PRINT:PRINT"{ 12 SPAZl}PREMI 
UN TASTO"; 

850 GETAS:IFA$=""THEN850 
855 PRINT"{CLR}SE TI IMBATTI 

{ 2 SPAZI}IN UN PIPISTRELLO 
O UN{ 3 SPAZI}"; 

860 PRINT"{GIU'}FANTASMA,TI SPAV 
ENTI E LASCI CADERE IL 
{ 2 SPAZI}{GIU'{GATTO CHE ST 
AI PORTANDO. " 

865 PRINT"{GIU'}LA CASA E'ANCHE 


INVASATA DAI DEMONI, 

{ 4 SPAZI}"; 

866 PRINT"{GIU'{SPIRITI CHE SI A 
GGIRANO NEI CORRIDOI," 

867 PRINT"{GIU'}SE TI SCONTRI CO 
N UNO DI LORO FINISCE IL 
{GIU' }GIOCO !" 

368 PRINT"{GIU'}(LA RIGA PIU' IN 
BASSO E'SICURA) " 

870 PRINT"{YEL}{GIU'}PIU'ALTO E' 
IL LIVELLO, MAGGIORE 
{ 2 SPAZI}E'{ 2 SPAZI}IL 
{GIU'{PUNTEGGIO,MA E'PIU'DIF 
FICILE.{OFF}" 

890 RETURN 

900 PRINT"[<6>]{GIU'}INSERISCI I 
L LIVELLO 1-6" 

920 GETAS:IFA$=""THEN920 

930 AA=VAL(A$):IFAA<10RAA>6THEN9 
20 

940 RETURN 

1000 POKE53280,0 :POKE53281,0 :PRI 
NT"{CLR}" 

1003 PRINT">{YEL}>.>.>>>>>>>>>>> 
> > >{BLU}-,{YEL}>.>>>>>>>>>. 
>>>>>>>"; 


1005 

1010 

1015 

1020 

1025 

1030 

1035 

104 0 


PRINT"> >> 
{BLU}-##, 

>>>>>"; 
PRINT"> > > 
{BLU}-### 

>>>>>>"; 
PRINT"> > > 


PRINT"> >> 


########, 


>>"; 

PRINT"> > > 


######### 


>>" ; 

PRINT"> >> 


######### 


>>"; 

PRINT"> >> 


######### 


>>"; 

PRINT">>. 


######### 


>>>>.>>.>>>>>>> 

{YEL}>.>>$%>.>>>>. 


>.>>>> 

>>> 

>>> 

. > 


#,{YEL 

}>> 

& (£ 

'> 

>.>> 

>>>>.> 

>>> 

>>> 

>{ 

BLU} 

YEL}>( 

] T) 

>. > 

>> 

. >>> 

>>>>>> 

> . > 

>>> 

{BLU}- 

{YEL}> 

* + > 

. >> 

>> 

>>>> 

>>.>>> 

>>> 

>>{ 

BLU}-# 

,{YEL} 

>>> 

. >> 

>> 

>>> . 

>>>>>> 

>» 

> {BLU 

} -## 

#,{YEL 

}>> 

>.> 

>> 

>>>> 

.>>>>> 

. >> 

{ BLU} 


##,{YEL}> 

. >> 

>> 

>>. > 

>>>>>> 

>>{ 

BLU 

}- 

# if £ 

###,{YEL} 

>>> 

. > 

>>>> 


>>" ; 

1045 PRINT">>>>>>>>>>{BLU}-##### 
,#############,{WHT}>>>>>>>> 
>>"; 

1050 PRINT">>>>>>>>>{BLU}-##»### 
##############, {WHT}>>>>>>> 


>>"; 

1055 PRINT">>>>>>>>{BLU}-####### 
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1060 


1065 

1075 

1080 

1085 

1090 

1092 

1093 

1094 

1095 
% 

1200 

1205 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1291 

1292 

1293 


###############,{WHT}>>>>>> 

>>" ; 

PRINT">>>>>>>{BLU}-######## 
################,{WHT}>>>>> 
>>" ; 

PRINT">>>>>>{BLU}-######### 
#################, {WHT}> >> > 
>>"; 

PRINT">>>> >{BLU}—########## 
##################{WHT}> > > > 
>>" ; 

PRINT"> >>>>{BLU}########### 
##################{WHT}>>>> 
>>" ; 

PRINT">>>>>{BLU}##########* 
##################{WHT}> > > > 
>>"; 

PRINT">>>>>{BLU}#######4### 
##################{WHT}> > > > 
> > " ; 

PRINT">>>>>{BLU}#####*####4 
##################{WHT}> > > > 
>>"; 

PRINT">>>>>{BLU 


##### ff ############{ WHT }>>>> 
>>"; 

PRINT">>>>>{BLU}########### 
##################{WHT}> > > > 
> > " ; 

PRINT">>>>>{BLU}########### 
##################{WHT}>> > > 
>>" ; 

REM COSTRUZIONE LABIRINTO 
A(0)= 2 : A(1)=-80:A(2)=-2:A(3 
)=80:WL=35:HL=32:A=SC+846 
POKEA,4 

J=INT(RND (1) *4) : X = J 

B=A+A(J):IFPEEK(B)=WLTHENPO 

KEB,J:POKEA+A(J)/2,HL:A=B:G 

OTO1220 


J=(J+1)*-(J<3) : IFJOXTHEN12 
30 

J= PEEK(A) :POKEA,HL:IFJ<4THE 
NA = A-A( J) : GOTO1220 
FORI=SC+216TOSC+856STEP40:P 
OKEI,32 :POKEI + 7,32:NEXT 
FORI=SC+140TOSC+860STF,P40: P 
OKEI,32:NEXT 

FORI=SC+372TOSC+852STEP40:P 
OKEI,32 :POKEI +15,32:NEXT 
FORI=SC+4 89TOSC+84 9STEP40:P 
OKEI,32 :POKEI + 21,32:NEXT 
FORI=SC+372TOSC+387:POKEI,3 
2 :NEXT 

FORI = SC+4 89TOSC+510 :POKEI,3 
2 :NEXT 

FORI=SC+687TOSC+712 :POKEI,3 


2 :POKEI +160,32 :NEXT 
1300 REM **** 

1310 REM **** 

1320 FORI=PT03*AA 

1330 X=INT(RND(1)*680)+SC+40 

1340 BL= 0 :GOSUB1700:IFBLTHENl330 

13 50 POKEX,59 :POKECM+X,1 :NEXT 
1400 REM **** 

1420 FORI= PTO 3 * AA 

1430 X=INT(RND(1)*680)+SC+40 

1440 BL=0:GOSUB1700:IFBLTHENl430 

1450 POKEX,61:POKECM+X,5:NEXT 
1500 REM **** 

1520 CC=11:FORI=PTO10 

1530 X=INT(RND(1)*680)+SC+40 

1540 BL=0:GOSUB1700:1FBLTHENl530 

1550 POKEX,60:POKECM+X,7:NEXT 
1600 REM **** 

1620 FORI = PTOAA*2 

1f 30 X=INT(RND(1)*680)+SC+40 
1640 IFPEEK (X) O32THEN1630 
1650 POKEX,31:POKECM+X,4 : A(I)=X: 
NEXT:RETURN 

1700 IF(PEEK(X)O32)0R( PEEK (X+P ) 
<>32ANDPEEK (X + P) 0 35) THENBL 
= 1 

1710 IF (PEEK (X-P) 032ANDPEEK (X-P 
) 035) OR (PEEK (X+Q) 0 32ANDPE 
EK(X+Q) 0 35) THENBL= 1 
1720 IF (PEEK (X-Q) 032ANDPEEK (X-Q 
) 03 5) THENBL=1 
1730 RETURN 
1800 REM **** 

1810 IFCF=0THEN18 4 0 
1820 X=INT(RND(1)*680)+SC+40 
1830 IFPEEK (X) O32TUEN1820 
1835 POKEX,60 :POKECM+X,7:CF=0:SR 
= SR-2 *AA t 2 : IFSR<OTHENSR = 0 
1840 POKETL,32 :POKECL,58 :POKECL+ 
CM, 1 

1843 FORI=15T01STEP-1:POKESL,100 
:POKESH,100 :POKEWF,33 :POKEV 
,1 

1844 FORI I = 1T025:NEXTII,I 

184 5 FORI = 1T0400 :NEXT:POKEWF,32 
1850 TL=CL:Z=TL:ONINT(RND(1)*4)+ 
1GOSUB301,303,305,307' 

1860 CL=Z:SR=SR-AAt 2 :IFSRCOTHENS 
R=0 

1870 GOTO400 
1900 REM **** 

1905 POKETL,32:POKECL,58 :POKECL+ 
CM,4 :DF=1 

1910 POKESL,100:FORI=lTO4:POKEWF 
,17 :POKESH,25 :FORX=lTOl50 :N 
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EXT:POKEWF,16 
1911 FORX=1T07 5 :NEXT 

1913 IFI=10RI=3THENP0KECL,31:GOT 
01920 

1914 POKECL,58 

1920 POKESL,0 :FORX=lTO200:NEXT:N 
EXT:FORX=ITO500 :NEXT:RETURN 

2000 REM **** 

2010 X=SC+985:POKEX-CC,60 :POKECM 
+X-CC,7 :CC=CC-1:SR=SR+10*AA 
T 2:CF=0 

2020 POKEWF,33:FORI=lTO50:NEXT:R 
ETURN 

9000 DATAI20,8,72,152,72,138,72, 
173,19,145,72,173,34,145,72 
,169,0,141,62,3,141 
9005 DATA63,3,169 

9010 DATA127,141,34,145,173,32,1 

45,73,255,41,128,42,8,169,1 
95,141,19,145,173,17 
9015 DATAI45,73 

9020 DATA255,41,60,74,74,40,42,1 
68,41,16,201,16,208,3,141,6 
3,3,152,41,15,162,0 
9025 DATA232,224 

9030 DATA9,240,8,221,160,3,208,2 
46,142,62,3,104,141,34,145, 
104,141,19,145,104 
9035 DATA170,104 

9040 DATA168,104,40,88,96,2,3,1, 
5,4,12,8,10 

10000 DATA255,255,255,255,255,25 

5,255,255 

10010 DATA0/0,0,0,0,15,63,255 
10015 DATA0,0,0,0,0,240,252,255 
10020 DATAI,1,3,3,7,7,7,7 


10030 DATAI28,128,192,192,224,22 

4.224.224 

10040 DATA7,7,7,7,3,3,1,1 
10050 DATA224,224,224,224,192,19 
2,128,128 

10060 DATA255,63,15,0,0,0,0,0 
10070 DATA255,252,240,0,0,0,0,0 
10080 DATAI28,192,224,240,248,25 

2.254.255 

10090 DATAI,3,7,15,31,63,127,255 

10100 DATA25 5,255,255,255,2 50,24 

6.244.224 

10110 DATA255,255,191,63,15,15,7 
,63 

10120 DATA240,249,240,228,0,252, 

255,255 

10130 DATA255,255,127,35,1,112,6 

3.255 

10140 DATA0,102,0,24,0,0,28,0 
10150 DATA56,84,56,16,124,186,40 
,108 

10160 DATA62,42,62,28,28,28,60,1 
20 

10170 DATA40,124,85,125,57,57,61 
,127 

10180 DATA0,16,124,254,214,130,0 

,0 

10190 DATA0,0,0,0,0,0,0,0 
20000 JP=15-PEEK(56320)AND15 
20010 PRINTJP:dOT020000 


— ———I 


dumping jack** 



Jack corre attraverso una impalcatura e cer¬ 
ca di scendere giù sino alla parte inferiore 
dello schermo per mezzo di scalini. 
Abbastanza facile vero? 

Ce solo un problema: queste impalcature 
non sono molto resistenti ed all'improvviso 


possono crollare qua e la. 

Dovete allora essere pronti a premere la 
barra/spazio in modo che Jack possa saltare 
la buca. 

Se il vostro tempismo è buono Jack salterà la 
buca cd atterrerà salvo dall'altra parte, mve- 
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ce se non avete premuto in tempo la 
barra/spazio, Jack cadrà nella sezione crolla¬ 
la dell'impalcatura. 

Se non siete stati pronti a premere la barra, 
avete ancora una possibilità per saltare la 
buca. Eccp come: se la barra/spazio viene 
premuta immediatamente dopo che Jack at¬ 
traversi la buca, potete fare un salto di sal¬ 
vataggio. 

0 REM JUMPING JACK 
1 REM VERSIONE PER C64 
5 GOSUB3000:PRINT"{CLR}";" 

{ li DES}INIZIALIZZAZIONE" 

10 M=3:T=10:D=5:X=25:P=61:POKE55 
,16:POKE56,64:S=54272:POKE532 
81,l:GOTO970 

20 C = 7:F% = 5: FORI = 1024TO2041:POKE 
I,59:NEXT 

30 POKE53280,C:FORI = 1064TOl103 :P 
OKE1,53 :NEXT:FORI = 1264TO1303: 
POKEI,53:NEXT 

33 F0RI=1424T01463:POKEI,53:NEXT 
:POKE142 5,54 :POKE1702,54 :POKE 
1865,54 

40 FORI = 1664TO1703:POKEI,53 :NEXT 
: FORI = 1864TO1903:POKEI,53 :NEX 
T 

50 FORI = 55296T056176 + 39 :POKEI,4 : 
NEXT 

60 FORI = 554 56T05 54 96 + 39 :POKEI,F% 
:NEXT 

70 FORI = 55616T05 5656 + 39 :POKEI,F% 
:NEXT 

80 FORI = 558 56T05 5896 + 39 :POKEI,F% 
: NEXT 

90 FORI = 560 56TO5 60 96+39 :POKEI,FI 
:NEXT:GOSUB1000:FORI=1T01000: 
NEXT 

100 1=1224:POKE1302,54:POKE1425, 
54 :POKE1702,54 :POKEI865,54 
110 IF1/2=1NT(1/2)THENPOKEI-1,59 
:GOSUB7 20 

120 IFI/2=INT(1/2)THENPOKEI,55:F 
ORJ = 1TOT:NEXT: GOTO14 0 
130 POKEI-1,59:POKEI,56 :FORJ = ITO 
T:NEXT:B=1264 :GOSUB8 30 
140 IFPEEK(197)=60THENGOSUB190 
150 IFPEEK(1+40)=54THENPOKEI,59: 
GOTO240 

160 IFPEEK(1+40)=60THEN760 
170 1=1+1:IFI>1263THENI=1224:POK 
£1263,59 
180 GOTOllO 

190 1=1-39: POKEI-r 39,59 


Tuttavia Jack deve essere in aria sopra la bu¬ 
ca per ottenere dei punti altrimenti nessun 
punto verrà assegnato. Questo metodo può 
essere usato anche per saltare due buche 
sulla stessa fila. 

Se fate un salto di salvataggio come deside¬ 
rato sopra per la prima buca e Jack volerà 
sopra la seconda buca il punteggio verrà as¬ 
segnato solo per la seconda buca. 

200 IFPEEK (1 + 40) O590RPEEK (1 + 80) 
<>53THENSC=SC+X:POKEI-40,P:G 
OSUB740:POKEI-40,59 
210 POKEI,55:F0RJ=1T0T:NEXT:1=1+ 
41 :IFI>1263THENI = 1224:POKE12 
6 3,59 :POKEI22 3,59 
220 POKEI403,59 :POKEI404,59 
230 FORJ=1TOT:NEXT:POKEI-41,59:P 
OKEI,55:RETURN 
240 1=1422 

250 IFI/2=INT(1/2)THENPOKEI+1,59 
:GOSUB720 

260 IFI/2=INT(1/2)THENPOKEI,58:F 
ORJ = 1TOT:NEXT: GOTO280 
270 POKEI+ 1,59 :POKEI,57 :FORJ=ITO 
T:NEXT:B=1424:GOSUB830 
280 IFPEEK(197)=60THENGOSUB330 
290 IFPEEK(1+40)=54THENPOKEI,59 : 
GOTO380 

300 IFPEEK(I+40)=60THEN760 
310 1=1-1:IFI<1384THENI=1422:POK 
E1384,59 
320 GOTO250 

330 1=1-41:POKE1+41,59 
340 IFPEEK(I + 40)< > 590RPEEK(1 + 80) 
<>53THENSC=SC+X:POKEI-40,P:G 
OSUB740:POKEI- 40,59 
3 50 POKEI,58 :FORJ = 1TOT:NEXT: 1 = 1 + 
39 :IFI<1384THENI = 1422:POKEI3 
84,59 :POKEl344,59 
360 POKEl344,59:POKEl343,59 
370 FORJ=1TOT:NEXT:POKEI-39,59 :P 
OKEI,58:RETURN 
380 1=1624 

390 IF1/2=1NT(1/2)THENPOKEI-1,59 
:GOSUB720 

400 IFI/2 = INT(1/2)THENPOKEI,55 :F 
ORJ = 1TOT:NEXT:GOT04 2 0 
410 POKEI-1,59:POKEI,56 :FORJ = ITO 
T:NEXT:B=1664:GOSUB830 
420 IFPEEK(197)=60THENGOSUB470 
430 IFPEEK(1+40)=54THENPOKEI,59: 
GOTO520 

440 IFPEEK(1+40)=60THEN760 
450 I = I + 1:IF1>166 3THENI = 162 4 :POK 
E1663,59 :POKE1623,59 
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460 GOTO390 

470 1 = 1-39:POKEI + 39, 59 :IFPEEK(I) 
<>59THENSC=SC+300 
480 IFPEEK (1 + 40) O590RPEEK (1 + 80) 
<> 53THENSC=SC+X:POKEI-40,P:G 
OSUB740 :POKEI-40,59 
490 POKEI,55:FORJ=1TOT:NEXT:1=1+ 
41 :IFI>1663THENI=1624:POKEI6 

63.59 

500 POKEI641,59 :POKEI624,59 :POKE 

1623.59 

510 FORJ =1TOT:NEXT:POKEI-41,59 :P 
OKEI,55:RETURN 
520 1=1862 

530 IFI/2=INT(1/2)THENPOKEI+1,59 
:GOSUB720 

540 IF1/2=INT(1/2)THENPOKEI,58:F 
ORJ=1TOT:NEXT:GOT0560 

550 POKEI+ 1,59 :POKEI,57 :FORJ = ITO 
T:NEXT:B=1864:GOSUB830 
560 IFPEEK(197)=60THENGOSUB610 
570 IFPEEK(1 + 40)=54THENPOKEI,59 : 
GOTO660 

580 IFPEEK(1+40)=60THEN760 
590 1 = 1-1:IFI<1824THENI = 1862 :POK 
E1824,59 
600 GOTO530 

610 1=1-41:POKEI+41,59 
620 IFPEEK (1 + 40) O590RPEEK (1 + 80) 
<>53THENSC=SC+X:POKEI-40,P:G 
OSUB740:POKEI-40,59 
630 POKEI,58:FORJ=lTOT:NEXT:1=1+ 
39 :IFI<182 4THENI = 1862:POKEI8 

24.59 

640 POKEI784,59 :POKEI783,59 
650 FORJ=1TOT:NEXT:POKEI-39,59:P 
OKEI,58:RETURN 
660 P=P+1:IFP=64THENP=61 
670 D=D-1:T=T-.1 

680 X=X+50:IFX>125THENX=25:D=8:T 
= 10:C= 5 :F% = 5 
690 IFX=75THENC=0:F%=0 
700 IFX=125THENC=8:F%=7 
710 GOTO30 

720 POKES+4,17 :POKES + 5,132 :POKES 
+6,132:POKES+24,6 

721 HO = 28 :L0 = 4 9 :POKES+1,HO :POKES 
,LO :FORZ = lTO200:NEXT:GOSUB20 
00 : RETURN 

740 POKES+24,15:POKES + 4,17 :POKES 
+5,132:POKES+6,132 

741 F0RHl=21T0126:POKES+1,Hi:LI= 
181:POKES,Li:NEXT:GOSUB2000: 
RETURN 

760 POKES+24,15:POKES+4,17:POKES 
+5,33:POKES+6,132:H2=233 
765 H2=H2-5:POKES+1,H2:L2 = 181:PO 
KES, L2 


766 POKEI,58 :POKEI-40,59 :POKEI + 5 
4272,0:1=1+40:IFI<1983THEN76 

5 

767 GOSUB2001 

769 M=M-1:IFM= 0THEN780:POKES+1,H 
2 = 181: POKES, L2: NEXT-.GOSUB200 
1 

770 P=61:X=25:D=6:C=27:T=10:F%=5 
:POKEI,59:GOTO30 

780 POKE53272,21 :PRINTCHRS(14 7); 
SPC(205);"{ 9 DES} GIOCO FIN 
ITO":PRINT 

785 PRINT"{GIU'} { 11 DES} IL PU 
NTEGGIO E'";SC 
790 PRINT:PRINT"{GIU'} 

{ 10 DES} GIOCHI ANCORA ? (Y 
/N)" 

800 K=PEEK(197):IFK=60THEN800 
810 IFK=25THENPRINT"{CLR}":RUN 
820 IFK=39THENPRINT"{CLR} 

{ 10 GIU'} { 8 DES}CIAO! !"; : 
FORW=lTO500:NEXT:PRINT"{CLR} 
" : END 

825 GOTO800 

830 IFINT(RND(1)*D)+1<>1THENRETU 
RN 

840 L=INT(RND(1)*39)+1 :IFL= 20ORL 
=1THEN840 

850 POKEB+L,60:GOSUB720:RETURN 
860 DATA255,129,66,66,36,36,24,2 
55 

870 DATA66,126,66,66,66,126,66,6 

6 

880 DATA12,8,13,62,44,12,18,33 
890 DATA24,16,24,24,24,16,16,24 
900 DATA24,8,24,24,24,8,8,24 
910 DATA24,8,88,62,26,24,36,66 
920 DATA0,0,0,0,0,0,0,0 
930 DATAI29,66,66,66,98,34,34,34 
940 DATA27,10,27,17,27,0,0,0 
950 DATA59,10,11,9,11,0,0,0 
960 DATA91,74,91,81,91,0,0,0,0 

970 POKE53272,(PEEK(53272)AND240 
) +12 

971 POKE56334,PEEK(56334)AND254 

972 POKEI,PEEK(1)AND251 

973 FORI = 0TO511 :POKEI +12288,PEEK 
(1+53248):NEXT 

974 POKEI,PEEK(1)OR4 

975 POKE56334,PEEK (56334)ORl 

976 RESTORE: FORI = 12288 + 53*8T0122 
88+64*8:READA:POKEI,A:NEXT 

990 GOTO20 

1000 FORI = 1302TO1422STEP40:POKEI 
,54 :NEXT: FORI = 142 5T01625STE 
P40:POKEI,54:NEXT 
1010 FORI = 1702TOl862STEP4 0:POKEI 
,54 :NEXT 
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1015 FORI = 55574TO55694STEP4 0:POK 

EI,3 :NEXT 

1020 F0RI = 55697T055897STEP40 :POK 
EI,3 :NEXT:FORI = 55974T05 6134 
STEP40:POKEI,3:NEXT 
10 30 POKEI865,54 :POKE1905,54 :POK 
E56137,3:POKE5 617 7,3:RETURN 

2000 POKES + 4,0 :POKES+5,0 :POKES + 6 
,0 : RETURN 

2001 POKES+6,15:POKES+4,129:POKE 

S+5,132 :POKES+6,132 

2002 H3=10:L3=143:POKES+1,H3:POK 
ES,L3:FORT=1T01000:NEXT:GOS 
UB2 000: RETURN 

3000 PRINT"{CLR}{ 2 GIU'} PER OT 
TENERE PUNTI DEVI FAR IN MO 
DO" 

3002 PRINT"{ 7 SPAZI}CHE JACK SA 
LTI LE BUCHE" 


3010 PRINT"{ 2 GIU'} PER SALTARE 
PREMERE LA BARRA-SPAZIO" 
3020 PRINT"{ 2 GIU'} 25 

{ 2 SPAZI}PUNTI PER BUCA (1 
' SCHERMO)" 

3025 PRINT"{ 2 GIU'} 75 

{ 2 SPAZI}PUNTI PER BUCA (2 
' SCHERMO)" 

3030 PRINT"{ 2 GIU'} 125 PUNTI P 
ER BUCA (3' SCHERMO)" 

3040 PRINT"{ 2 GIU’} IL PUNTEGGI 
O AUMENTA CON IL NUMERO" 

3041 PRINT"{ 8 SPAZI}DI SCHERMI 
COMPLETATI" 

3050 PRINT"{ 2 GIU'} PREMERE LA 
BARRA-SPAZIO PER CONTINUARE 

M 

3060 GR=PEEK(197) : IFGR060THEN30 
60 

3070 RETURN 



< 

\6i» 
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Goblin 




Il gioco è semplicissimo: occorre catturare 
tutte le creature dallo sguardo torvo dissemi¬ 
nate sul video, utilizzando il proprio folletto. 
Bisogna però stare attenti a non urtare i nu¬ 
merosi ostacoli presenti. 

80 POKE 53280,2:POKE 53281,1 

90 PRINT"{CLR}{ 7 GIU'}ATTENDERE 
,PREGO...DEFINISCO I CARATTER 

I"; 

100 POKE 52,48:POKE 56,48:CLR:PO 
KE56334,PEEK(56334)AND254 

105 POKEI,PEEK(1)AND251 

108 FORN=0TO2047:POKEN+12288,PEE 
K (N+53248) :NEXTN 

109 FOR N = 0 TO 7 :POKEN+12 320,PEE 
K(N+54064):NEXT N 

110 IFS>HSTHENHS=S 

112 RESTORE:B=4:Z=1964:Zl=Z+5427 
2 :W=0:S=J:G=0 

115 VS=54296:AD=54277:SR=54278:W 
F = 54276:LB=54272:HB= 54 2 73 

120 FOR X=0TO31: READ A:POKEX+122 
88,A:NEXT 

123 POKE 1,PEEK(1)OR4:POKE563 3 4, 


Il folletto può essere guidato solo orizzontal¬ 
mente, con i tasti O che la sposta a sinistra e 
P che lo muove a destra. 

Attenti alla velocità del Goblin! 


PEEK(56334)ORI 

125 POKE 53272,(PEEK(53272)AND24 
0 ) +12 

130 PRINT"{CLR}{GRN}{ 14 DES} 

{RVS} G O B L I N" 

140 PRINT"{HOME}{RED}{ 2 GIU’} 

{RVS}"SPC(17)"HS="HS 
145 PRINT"{HOME}{BLK}{ 22 GIU'} 
{RVS}0=SINISTRA";SPC(22);"P= 
DESTRA" 

150 FOR 1=1 TO 118 

160 X=INT(RND(1)*680)+1144 

170 IFPEEK(X)=BTHEN 160 

180 POKEX,B:POKEX+ 54272,0 :NEXTI 

190 FORI=ITO36 

195 G1=0 

200 X=INT(RND(1)*680)+1144 
210 IF PEEK(X)=BORPEEK(X)=10RPEE 
K(X)= 3THEN 200 
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220 IFPEEK(X+39)=BANDPEEK(X+40) = 
BANDPEEK(X+41)=BTHENPOKEX,3: 
POKEX+54 272,0 :Gl = l 
225 IF Gl=l THEN G=G+l:GOTO 240 
230 POKEX,1 :POKEX+54 272,0 
240 NEXT I 

250 POKEZ,32 :Z = Z- 40:Zl = Zl-40:IF 
Z<114 4 THEN Z=Z+760:Zl=Zl+76 
0 

260 GET A$: IFA$ = "0"THENZ = Z-1:Z1 = 
Zl-1 

270 IFA$="P"THENZ=Z+1:Z1=Z1+1 
280 IFPEEK(Z)=B THEN 410 
290 IFPEEK(Z)=l THEN GOSUB 330 
300 POKEZ,0 :POKEZ1,0:FORT=1T0220 
: NEXT 

310 IFW= 36-G THEN J=S:GOSUB350 :G 
OTO110 
320 GOTO 250 

330 W=W+1:S=S+2 5 :PRINT"{HOME} 

{BLU}{ 2 GIU '}"S:POKE VS,15: 
POKE AD,30:POKE SR,200:POKE 
WF, 17 

340 POKEHB,71 :POKELB,12 :FORT=ITO 
90 :NEXTT:POKEVS,0 :POKEHB,0 :P 
OKELB,0 : RETURN 

350 PRINT"{HOME}{RED}{ 18 GIU'} 

{ 8 DES}{RVS}***** *PERFETTO ! 
******" 

355 FORI = lTOl0 :GETC$:NEXTI 
360 POKE VS,15:POKE AD,30:POKE S 
R, 200 :POKE WF,17:FOR 1 = 1 TO 
17 


370 H=INT(RND(0)*10)+21:L=INT(RN 
D(0)*45)+210:POKE HB,H:POKE 
LB, L 

380 FOR T=1 TO 80:NEXT T:NEXTI:P 
OKE VS,0 :POKE HB,0:POKE LB,0 

400 RETURN 

410 POKEZ,2:POKEVS,15:POKEAD,30: 
POKESR,200:POKEWF,129:POKE H 
B,2:POKE LB,125 

415 FOR 1=1 TO 400:NEXT I:POKE V 
S,15:POKE HB,0 :POKE LB,0 

420 F0RX=1144T01823:IF PEEK(X)<> 
1THEN NEXTX 

430 IFPEEK(X)=1THEN POKEX,3:NEXT 
X 

440 J=0 

445 FORI=lTOlO:GET C$:NEXTI 

450 PRINT"{HOME}{BLU}{ 20 GIU'} 
{RVS}GIOCHI ANCORA? (S/N)":P 
OKE 646,14 

465 GET C$:IF C$="" THEN 465 

470 IFC$="S"THEN 110 

490 POKE53272,21:POKE53280,14 : PO 
KE53281,6 :POKE 52,50 :POKE56, 
50 :PRINT"{CLR}CIAO!" 

500 DATA126,219,219,255,165,90,9 
0,165,60,66,165,129,153,165, 
66,60 

510 DATAI70,85,170,85,126,219,25 
5,189,60,66,165,129,165,153, 
66,60 

520 DATA0,0,0,0,0,0,0,0 


Mlle miglia 



«a 


Mettete alla prova ia vostra abilità di guida¬ 
tori percorrendo uno strada tortuosa ed irta 
di ostacoli. Man mano che procederete, la 
strada diverrà sempre più stretta, con mag¬ 
gior rischio di incidenti: più a lungo resistere¬ 
te. più alio sarà il vostro punteggio. Scegliete 
uno dei quattro livelli di difficoltà: il pruno è 
per i principianti, nel secondo le curve sono 

0 POKE56,28 :POKE52,28 :CLR 
1 POKE36879,110:PRINT"{CLR}{WHT} 
{ 10 GIU'}{ 2 SPAZI}ATTENDI UN 


più strette, nei ter/o curve larghe ma ostaco¬ 
li sparsi qua e là. nel quarte curve strette ed 
ostacoli. Se urtate il bordo dello pista od un 
ostacolo, il gioco termina mostrandovi la lar¬ 
ghezza dello sirada ed il punteggio. Usate il 
tasto "C" per andare a sinistra ed "A/l per 
andare a destra. 

Non sono richieste espansioni di memoria. 

ATTIMO" 

2 GOSUB280 

3 POKE36879,59 
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4 PRINT"{CLR}{ 3 GIU 1 }{BLK}IMPOS 
TA IL LIVELLO:PRINT" 

{ 2 GIU 1 }"TAB(3)"{BLK}1 {RED}N 
OVELLINO" 

5 PRINT"{ 2 GIU 1 }"TAB(3)"{BLK}2 
{RED}DILETTANTE":PRINT" 

{ 2 GIU'}"TAB(3)"{BLK}3 {RED}P 
ROFESSIONISTA" 

6 PRINT"{ 2 GIU'}"TAB(3)"{BLK}4 
{RED}ESPERTO":PRINT”{ 2 GIU'} 
"TAB(3)"{BLK}5 {RED}-FINE-" 

7 GETB$:IFB$=""THEN7 

8 J = VAL(B$) : IFJ<10RJ>5THEN7 

9 L=30720 :IFJ=5THENSYS4096 

10 IFA$ = "N"THEN14 

11 PRINT"{CLR}{BLK}{ 6 GIU'}USA 

I TASTI :{GIU 1 }{ 10 SPAZl}C (S 
INISTRA){ 10 SPAZI}M (DESTRA) 

II 

13 FORS=1T03000:NEXTS 

14 PRINTCHR$(147) 

15 POKE650,255:N=7908 

16 POKE36879,93 

17 1=.1 :IFJ = 20RJ = 4THENI = .2:N = 7 90 
5 

19 AM$=*"»«■•••»•" 

20 H=0 

22 FORQ=1T04 

23 FORC=9TOOSTEP-1 

25 F0RA=1T07.2STEPI 

26 Y=COS(A) 

27 F=F+1:R=RND(1):IFF>23THENPOKE 
36878,15 

29 PRINTTAB(5 *Y+6) ;"{BLU}${BLK}" 
LEFT$(AM$,C)"{BLU}$": IFR>.5TH 
EN4 0 

30 IFJ = ÌORJ = 2THEN40 

32 IFF>23THENX=INT(23*RND(1)+1): 

POKE8142+X+L}2 :POKE814 2+X,37 
40 IFF>=23THENPOKEN+L,0 :POKEN,35 
:FORT=ITO90 :NEXTT:POKEN+L,0 :P 
OKEN,39 

42 IFPEEK(N)=360RPEEK(N+22)=360R 
PEEK(N-l)=360RPEEK(N+l)=36THE 
N110 


49 GETB$ 

50 N=N+(B$ = "C")-(B$ = "M") 

51 IFPEEK(N)=370RPEEK(N+22)=370R 

PEEK(N-l)= 370RPEEK(N+l)=37THE 
N110 

70 H=H+1 

80 NEXTA:NEXTC:NEXTQ 
110 POKEN,38 :POKEN+L,2 
120 POKEN-1,38:POKEN-1+L,7 
130 POKEN+1,38 :POKEN+l+L,7 
140 POKEN+22,38 :POKEN+22+L,4 
150 POKEN-22,38 :POKEN-22+L,4 
160 POKE36877,220 :FORT=15TOOSTEP 
-1:POKE36878,T 
170 FORM=1TO50:NEXTM 
180 NEXTT:POKE36877,0 :POKE3687 8, 
0 : F=0 

190 POKE198,0:PRINT"{BLU}{GIU’}L 
ARGH. STRADA:"C"METRI" 

200 PRINT"PUNTI :"INT(10000/C+5+H 

) 

210 PRINT"{GIU*}GIOCHI ANCORA (S 
/N) ? " 

220 GETA$: IFA$ = ""OR(A$< >"S"ANDA$ 
<>"N")THEN220 
230 IFA$="S"THEN14 
240 IFA$="N"THEN3 
280 FORI=0TO511:POKEI+7168,PEEK( 
1+32768):NEXT 

310 FORC=7448T07455:READZ:POKEC, 
255-Z:NEXT 

320 FORC=74 56T074 87 :READZ:POKEC, 
Z:NEXT 

330 DATAI53,255,189,60,60,189,25 
5,153 

340 DATA24,24,24,60,60,126,126,2 
55 

350 DATA24,60,128,255,255,255,25 

5.255 

360 DATA154,82,0,27,216,0,74,137 

365 DATA255,255,255,255,255,255, 

255.255 

370 POKE36869,255 : RETURN 


Incrociatore spaziale 



joyst ck (opztoralet 


Dovete pilotare la vostra nave spaziale in per andare a sinistra e a destra, oppure 

uno stretto canyon, utilizzando i tasti o il joystick. Attenzione ai macigni vaganti ed 
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alle tortuose cuve del canyon. Registrate in 
ordine i due programmi sulla stessa cassetta, 
in quanto il programma I carica in modo au¬ 
tomatico il secondo. Sarete dei buoni piloti? 


Programma n. I 

10 POKE52,28:POKE56,28:CLR 
15 F0RI=7168T07679:POKEI,PEEK(25 
600+1):NEXTI 

20 FORX=0TO19 

21 READC 

22 FORD=0TO7:READE:POKE7168+C*8+ 
D,E:NEXTD 

23 NEXTX 

30 PRINT"{CLR}PREMI RETURN 

{ 4 GIU')":PRINT"LO";CHR$(34) 
;"INCROCIATORE•PRG" 

50 PRINT"{ 3 SU}"; 

60 END 

63000 DATA033,231,231,231,000,00 
0,231,231,231 

63001 DATAO 34,231,231,231,231,23 

1.231.231.231 

63002 DATAO35,000,003,007,055,12 
7,127,127,063 

63003 DATAO36,000,192,248,248,25 

2.124.238.254 

63004 DATAO37,123,127,063,061,06 
3,015,003,000 

63005 DATAO38,254,238,124,252,24 
8,248,192,000 

63006 DATAO42,214,124,254,186,18 
6,146,016,016 

63007 DATAO43,000,000,000,000,00 

0 , 000 , 000,000 

63008 DATA044,255,255,255,255,25 

5.255.255.255 

63009 DATAO47,224,224,224,224,22 
4,224,224,224 

63010 DATA048,240,240,240,240,24 
0,240,240,240 

63011 DATAO 49,231,231,231,007,00 

7.231.231.231 

63012 DATAO50,231,231,231,224,22 
• 4,231,231,231 

63013 DATAO51,231,231,231,224,22 

4.255.255.255 

63014 DATA052,231,231,231,007,00 

7.255.255.255 

63015 DATAO53,255,255,255,000,00 
0,231,231,231 

63016 DATAO54,255,255,255,255,25 
5,000,000,000 

63017 DATA055,255,255,255,224,22 

4.231.231.231 


Attenzione perché è piuttosto facile schian¬ 
tarsi subito (almeno per le prime volte...). 
Buon divertimento! 


63018 DATAO56,255,255,255,007,00 

7,231,231,231 

63019 DATAO57,007,007,007,007,00 
7,007,007,007 


Programma n. 2 

90 POKE36869,240 
100 PRINT"{WHT}" 

110 GOTO150 

120 WX=INT(255-W):IFWX<160THENWX 
= 160 

150 PRINT"{CLR}" 

160 FORW= OTO10 :READR$(W) :NEXTW 
170 DATA"PRINCIPIANTE" 

180 DATA"ESORDIENTE" 

190 DATA"ALLIEVO" 

200 DATA"AVIATORE" 

210 DATA"ISTRUTTORE" 

220 DATA"ASSO" 

230 DATA"MAGGIORE" 

240 DATA"GENERALE *" 

250 DATA"GENERALE **" 

260 DATA"COMANDANTE DI FLOTTA" 
270 DATA"HAN SOLO ?????????" 

350 POKE36879,8 

370 PRINT"{HOME}{ 4 GIU'}INCROCI 
ATORE SPAZIALE" 

380 PRINT 

400 FORW=ITO50 :P=INT(RND(TI)* 506 
)+7680 :IFPEEK(P)=32THENPOKEP 
,46:POKEP+30720,1 
410 NEXTW 

540 PRINT"{BLU}{HOME}{ 18 GIU'} 
{RVS}";SPC(5);"PREPARATI..." 

580 TI$="000005" 

590 PRINT"{HOME}{ 11 GIU'}{RED} 

{ 7 SPAZI}{RVS}TEMPO: 5 
{ 2 SIN}"; 

600 Al=INT(10-VAL(TI$)):PRINTAl; 

"{ 3 SIN}"; 

610 IFA100THEN600 

740 GOTO920:REM ** RUN THE GAME 
* * 

750 DATA"{WHT},/{ 4 SPAZI}9, 

{ 3 SPAZI}" 

760 DATA"{CYN},/{ 4 SPAZI}9, 

{ 3 SPAZI}" 
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770 

DATA"{PUR},/{ 

{ 3 SPAZI}" 

4 

SPAZI}9, 

1170 

780 

DATA"{GRN},/{ 

{ 3 SPAZI}" 

4 

SPAZI}9, 

1180 

790 

DATA"{BLU},/{ 

{ 3 SPAZI}" 

4 

SPAZI}9, 

1190 

800 

DATA"{YEL},/{ 

4 

SPAZI}9, 

1200 


{ 3 SPAZI}" 



1205 

810 

DATA"{RED},/{ 

4 

SPAZI}9, 


820 

{ 3 SPAZI}" 
DATA"{WHT},/{ 

4 

SPAZI}9, 

1210 

1220 


{ 3 SPAZI}" 



1230 

830 

DATA"{WHT},/{ 

4 

SPAZI}9, 

1235 


{ 3 SPAZI}" 



1240 

840 

DATA"{CYN},/{ 

4 

SPAZI}9, 

1260 


{ 3 SPAZI}" 



1270 

850 

DATA"{PUR},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1271 

860 

DATA"{GRN},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1272 

870 

DATA"{BLU},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1280 

880 

DATA"{YEL},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1281 

890 

DATA"{RED},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1282 

900 

DATA"{WHT},/{ 

{ 3 SPAZI}" 

5 

SPAZI}9, 

1285 

920 

PRINT"{CLR}":PRINT"{SU}" ; : PO 



KE36869,255 



1286 

925 

PRINTSPC(9);"{RED}7 ! !!8" 


950 

FORW=1TO10 



1287 

960 

PRINTSPC(9);"{RED}";CHR$(34) 



;"2 1";CHR$(34) 


1300 

970 

NEXTW 




980 

PRINT"{RED},,, 

/ r 

,,75 ! 4 31 58, 



ii • 

t 9 9 r r r 



1330 

990 

FORW=1TO10:PRINTSPC(6) 

{RED},2{ 7 SPAZI}1,":NEXTW 

1340 

1000 

POKE7713,42:POKE38433,4 

1345 

1020 

TI$="000005" 




1070 

F0RSYP=55TO297STEP22:POKE38 

1348 


400+SYP-22,0 : 

POKE 7680 +SYP-2 



2,32 



1350 

1075 

POKE38400+SYP 

,4 

:POKE76 80 + SY 

1360 


P,42:NEXTSYP: 
B=0 

SP 

= 297 2AB=32:C 

1410 

1080 

PRINT"{HOME}{ 

20 GIU’}"; 

1430 

1090 

FORW=0TO7:READC$(W):NEXTW 


1100 

FORW= 0TO7:READBC$(W) :NEXTW 

1440 

1110 

TL=6:C$=C$(7) 

:BC$ =BC$(7) 

1450 

1120 

GOSUB1440:TI$ 

_ Il 

000000" 

1460 

1130 

C$=C$(ABS(LEN(C$)-11)) 

1470 

1150 

IFTI>800THENC$= 

C$((LEN(C$)- 

1475 


12)):BC$=BC$((LEN(C$)-11)): 



GOTO1460 



1480 

1160 

IFINT(RND(TI) 

*100)<20THENC$ 



=BC$ 



1530 


IFINT(RND(TI)*100)=4THENGOS 
UB1440 

TL=ABS(TL+((INT(RND(TI)*3)- 
1) )) 

TL=TL-(1*((TL<(22-LEN(C$))) 

+ D ) 

TL=TL*((TL<0)+1) 

POKESP+7680,AB :POKESP+38400 
/ CB 

PRINT:PRINTSPC(TL);C$; 

IFAS=1THEN1470 

P=PEEK(203):IFP=64THEN1285 

IFP=45THEN1280 

IFP=22THEN1270 

G0T01285 

SP=SP+1: IFPEEK ( 7680+SP) 0 32 
THEN1300 

AB=PEEK(7680+SP):CB=PEEK(38 
400+SP) 

POKESP+38400,4 :POKESP+7680, 
42 :GOTO1130 

SP=SP-1 : IFPEEK ( 7680+SP) 032 
THEN1300 

AB=PEEK(7680+SP):CB=PEEK(38 
400+SP) 

POKESP+384 00,4 :POKESP+7680, 
42:GOTO1130 

IFPEEK ( 7680+SP) 032ANDPEEK ( 
7680+SP) 042THEN1300 
AB=PEEK(7680+SP):CB=PEEK(38 
400+SP) 

POKESP+384 00,4 :POKESP+7680, 
42 :GOTO1130 

POKE36869,240:PRINT"{CLR}" : 
PRINTSPC(5);"{RVS}SEI ESPLO 
SO ! ! " 

POKE36879,8 

PRINTSPC(5);"{RVS}IL TUO GR 
ADO : " 

PRINTSPC(11-LEN(R$(R))/2);" 
{RVS}";R$(R) . 

PRINT"{RVS}{GIU'}{ 4 DES}PR 
EMI UN TASTO" 

FORW=ITO10 :GETZ $ :NEXTW 
GETZ$:IFZ$ = ":"ORZ$ = ";"ORZ$ = 
""THEN1360 
RUN 

TI$="000000":R=R+1:IFR>10TH 
ENR=10 

IFAS=1THEN1205 
AS=1:RETURN 
GOSUB1430:GOTO1205 
AS = 0 

FORQ=lTOLEN(C$)/2:PRINT" 

{SIN}";:NEXTQ 

PRINT"{ 2 SU}#${GIU'} 

{ 2 SIN } % & " 

GOTO1230 
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SONO IN EDICOLA 



Possiedi un Sinclair Spectrum 
o uno ZX81 e vuoi saperne di più? 

Vuoi disporre di nuovi programmi, giochi 
e idee per utilizzare al meglio il tuo piccolo gioiello? 
Corri in edicola e acquista SUPERSINC per dare 
una nuova carica al tuo home computer. 

SUPERSINC, in edicola tutti i mesi, è la rivista nuova 


SUPERVIC è il "carburante" 
per il tuo VIC 20 e il tuo C 64. 
SUPERVIC è la nuova rivista pensata 
e realizzata per utilizzare ancora 
meglio il tuo personal computer. 
SUPERVIC ti propone, ogni mese 


si . 


' n *l Ma 0a lo 1054 
L. 3.500 


" Spodlxlono'ln 
abbonamento 
potiate Gruppo 111/70 


RE-beep 


soft 


Unmarchiodi 


T^dmcllma 


s.r.l. 



Via Roselllnl 12, 20124 Milano tei. 6888228 TLX 333436 


...Idee nuove per il tuo personal. 











